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Chapter  1 
INTRODUCTION 


The  purpose  of  this  report  is  to  document  three  computer  programs 
written  for  the  analysis  of  electromagnetic  transmission  through  a  filled 
slit  of  arbitrary  cross  section  in  a  conducting  plane  of  finite  thickness. 
The  formulation  is  given  in  detail  elsewhere  [1].  Several  equations  in 
[1]  are  referred  to  here  and  are  numbered  as  they  appear  in  that  report* 
(i.e,,  Eq.  (3-2)  refers  to  equation  number  2  of  Chapter  3  of  [1]).  The 
language  of  the  programs  is  Fortran  IV  and  all  computations  were  done  on 
an  IBM  370-155  computer  using  a  WATFIV  compiler. 

An  example  for  a  typical  slit  is  shown  in  Fig.  1,  where  regions 
a,  b,  and  c  are  taken  to  be  free  space.  The  dimensions  are  given  in 
terms  of  free  space  wavelength,  Aq.  For  illustrative  purposes,  computa¬ 
tions  are  done  for  this  example  in  Chapters  2  and  3,  where  the  non-modal 
and  the  modal  programs  are  discussed.  Chapter  4  deals  with  a  speciali¬ 
zation  of  the  modal  solution  to  a  slit  of  rectangular  cross  section,  and 
the  program  described  is  used  to  investigate  approximate  solutions  for 
this  special  case. 

The  slit  cross  section  of  Fig.  1  is  special  in  the  sense  that 
either  the  modal  or  the  non-modal  formulation  may  be  used  to  solve  for 
its  transmission  characteristics.  Appendix  A  discusses  how  to  compare 
the  results  obtained  from  the  computer  programs  using  these  two  dif¬ 
ferent  methods  of  solution.  Since  the  non-modal  solution  comprises 
the  bulk  of  reference  [1],  the  Fortran  variable  names  which  are  used 
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Fig.  1.  Example  of  a  slit  cut  in  a  conducting  screen  of  finite 

thickness.  Dimensions  are  in  terms  of  free  space  wavelength  X 


consistently  in  Program  I  and  have  counterparts  in  [1]  are  listed  for 
reference  in  Appendix  B.  A  solution  of  a  slit  problem  by  the  modal 
method  requires  only  magnetic  currents  to  be  solved  for  over  portions 
of  the  contour  defining  the  slit  cross  section.  Hence,  to  obtain 
tangential  magnetic  fields  on  this  contour,  additional  computational 
effort  is  required.-  Formulas  for  these  tangential  magnetic  fields  are 
given  in  Appendix  C  in  terms  of  the  magnetic  currents  which  were-  solved 


for  in  Program  II. 


Chapter  2 


PROGRAM  I  -  NON-MODAL  SOLUTION 

The  purpose  of  this  computer  program  is  to  analyze  the  trans¬ 
mission  properties  of  a  filled  slit  of  arbitrary  cross  section  in  a 
ground  plane  of  finite  thickness  by  the  non-modal  formulation  [1, 

Chapters  1-4].  Descriptions  of  how  to  use  the  program  and  set  up  the 
required  data  cards  are  presented  first,  followed  by  detailed  de¬ 
scriptions  of  all  of  the  subroutines.  Fortran  variable  names,  which 
have  counterparts  in  [1],  are  defined  in  Appendix  B. 

2.1.1  Required  Input  Data  and  Main  Program  Description 

The  input  data  required  by  the  user  is  read  from  two  sequences 
of  data  cards  in  the  main  program  and  in  subroutine  CDATA .  The  first 
sequence  of  cards  is  read  in  the  main  program  according  to  the  follow¬ 
ing  format  statements: 

100  FORMAT (615) 

101  FORMAT (2E20. 7) 

102  FORMAT (6E11. 4) 

The  data  in  the  first  sequence  of  cards  is  arranged  according  to  Table  1. 
The  data  variables  are  defined  by: 

NGQ  =  order  of  the  Gaussian  quadrature  formula  used 
for  numerical  integration. 

A,T  =  arrays  containing  weights  and  nodes,  respectively, 
of  Gaussian  quadrature  formula  divided  by  2. 


Table  1.  Arrangement  of  first  sequence  of  data  cards  for 
Program  I. 


Data  Card 

Number 

Format 

Number 

Information  to  be  Typed  on  Card 

1 

101 

NGQ 

2 

101 

A(l)  T (1) 

1  +  NGQ 

101 

A (NGQ)  T(NGQ) 

2  +  NGQ 

100 

IJOB(l),  IJ0B(2) IJ0B(6) 

3  +  NGQ 

102 

PHI (1)  PHI (2) 

1  +  NEX  +  NGQ 

102 

PHI (2  *  NEX-1),  PHI (2  *  NEX) 

2  +  NEX  +  NGQ 

102 

MU A  ,  EPS A 

3  +  NEX  +  NGQ 

102 

MUB  ,  EPSB 

4  +  NEX  +  NGQ 

102 

MUC  ,  EPSC 

5  +  NEX  +  NGQ 

102 

FMC  ,  DPHI 

6  +  NEX  +  NGQ 

100 

NI 

IJOB  =  Integer  option  array  allowing  user  to  specify 

various  options  available  in  the  program  as  de¬ 
fined  by  comment  cards  in  the  main  program  listing. 
The  number  of  excitations  is  IJ0B(3)  ■  NEX,  either 
plane  waves  or  line  sources  ,all  to  be  considered 
separately.  If  any  of  the  other  IJOB  values  are 
not  equal  to  1,  then  that  particular  task  indi¬ 
cated  by  the  comment  cards  will  not  be  executed. 

Also  if  IJ0B(6)  =  1,  IJ0B(5)  must  also  be  set 
equal  to  1. 

The  program  obtains  a  solution  for  an  incident  plane  wave  or  line  source 
placed  in  region  a.  Several  excitations  may  be  specified  for  a  given  slit 
problem,  each  of  which  is  solved  separately.  For  NEX  excitations,  each 
one  is  specified  by  two  locations  in  array  PHI: 

PHI(2k-l)  =  0, plane  wave  excitation. 

PHI (2k)  *  angle  of  incidence  of  plane  wave  measured  in 

degrees  with  respect  to  the  negative  x  axis, 

or 

PHI(2k-l)  ■  x  coordinate,  in  meters,  of  line  source  in 
region  a. 

PHI (2k)  =  y  coordinate,  in  meters,  of  line  source  in 

region  a. 

for  k  =  1,2,...,  NEX.  The  coordinates  used  are  those  of  Fig.  1.  All 
regions  a,  b,  or  c  may  be  lossy  and  hence  their  electrical  properties 
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are  specified  by  the  complex  quantities: 

MUA,  EPSA  -  y  /y  ,  e  /e 

a  o  a  o 

MUB,  EPSB  =  y,  /y  ,  e,/e 

bo  bo 

MUC,  EPSC  =  y  /y  ,  e  / e 

coco 

where  each  is  specified  by  a  complex  number  x-jy  for  x  and  y  non-negative 
real  numbers. 

FMC  =  Frequency  of  excitation  in  Megahertz. 

DPHI  =  Increment,  in  degrees,  at  which  field  patterns  are 
to  be  computed  in  region  c. 

NI  =  Number  of  points  in  region  c  at  which  far  field 
computations  are  to  be  made  in  order  to  obtain 
field  patterns. 

The  second  sequence  of  data  cards,  which  are  arranged  according 
to  Table  2,  are  read  in  subroutine  CDATA  and  are  used  to  specify  the 
slit  cross  section.  The  data  variables  are  defined  in  Fig.  2,  where  the 
coordinate  frame  is  shown.  The  number  NS1  equals  the  total  number  of 
cards  in  the  first  sequence  of  data  cards.  In  Fig.  2,  the  endpoints  of 
the  lines  are  sequentially  numbered  clockwise  from  the  origin  by  the 
node  numbers  stored  in  array  ND  for  i=l,  2,  ...,  5  so  that  each 
line  r  is  broken  up  into  ND(i+l)  -  ND(i)  straight  line  segments.  The 
x  coordinates  of  the  points  on  and  are  not  needed  except  at  the 
ends  of  and  because  these  lines  are  parallel  to  the  y  axis.  There 
are  N..+1  data  cards  in  the  second  sequence.  As  this  data  is  read  in, 
the  vector  quantities  appearing  in  Fig.  5  of  [1]  associated  with  each 
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mm 


Table  2.  Arrangement  of  second  sequence  of  data  cards  for  Program  I, 
NS1  =  6  +  NEX  +  NGQ. 


Data  Card 

Number 

Format 

Number 

Information  to  be 

Typed  on  Cards 

NS1  +  1 

100 

ND (1) ,  ND(2) , . . . ,  ND(5) 

NS1  +  2 

102 

• 

• 

• 

• 

• 

• 

NS1  +  1  +  N. 

Y 

2 

No 

2 

NS1  +  2  +  N2 

*N2  +  1  *  YN2+  1 

• 

•  • 

• 

•  • 

•  • 

NS1  +  1  +  N3 

V  >  V 

' 

3  3 

NS1  +  2  +  N, 

Y 

3 

n3+  1 

• 

• 

• 

• 

NS1  +  1  +  N, 

4 

4 

NS1  +  2  +  N, 

A 

XN  +  1’  YN  +  1 

• 

•  • 

• 

•  • 

• 

•  • 

NSl  +  1  +  N5 

102 

XN  *  YNr 

5  5 
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Fig.  2.  Points  used  as  input  data  to  specify  slit  cross  section 
contour  C,  x,  =  x,  =  . . .  =  x.,  =0  and  x„  =  x„  . ,  =  .. 


straight  line  segment  are  computed.  These  are  stored  in  common  blocks 


in  the  arrays: 


ULY(m)  -  t  •  £ 
—m 

ULX(m)  «  t  •  x 
— m  — 

RCX(m)  =  R  •  x 
— m  — 

RCY(m)  =  R  •  £ 


DC(m)  =  length  ACm  of  mth  line  segment 

for  m  =  1,2, .  .,N,--1,  and  is  a  vector  from  the  origin  to  the  midpoint 

of  line  segment  AC  .  The  normal  vector  for  each  AC  can  be  found  from 
m  m 

n  *  z  =  t 
~ m  —  — m 

Next,  the  wavenumbers  and  impedances  for  each  region  are  computed 
normalized  to  those  of  free  space.  Subroutine  SOLN  is  called  to  set  up 

and  solve  the  system  of  Eqs.  (2-17)  for  the  TE  case  if  IJ  *  1  and  for 

the  TM  case  if  IJ  =  2. 
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2.1.2  Listing  of  Main  Program  and  Sample  Output 

C 

C - THICK  SLIT  PROGRAM  ONE.  .. 

c - NON-  MODAL  FORMULATION  FOR  THICK  SLIT  PROBLEM... 

C 

COMPLEX  KA.KB.KC .ETA .ETB.ETC .MUA. MUB.MUC 
COMPLEX  EPSA . EPSB.EPSC.CSQRT 
DIMENSION  PH  II100I.I  JOB!  6} 

COMMON  /CUV/ULXI  60  >  •  ULYI  60  )  •  NDI  5) /C/RCXI  60  )  .  RCY<  60  )  .  OC(  60) 
COMMON  /B/  ETA .ETB.ETC  »KA. KB  *KC  »M  AVNO 
COMMON  /GQI/AC  10  )  » T<  10)  .NGQ 
DATA  PI/3.141 593/ 

100  FO RM A T (6  IS) 

101  FORMATI2E20. 7) 

102  FO  RM AT16  El  1 • 4  > 

READ!  1*100)  NGQ 

READ (1.101)IA(I).T(1).I=1. NGQ) 

MR ITE (3. 100)  NGQ 

MR ITE <3. 101) (A(I ) .T< I) .1=1 .NGQ) 

READ  (1.1  OOX  I  JOB  (  I  )  •  1  =  1  .6) 

MR  ITE  (3.  100M  I  JOB!  I)  .1  =  1  .6  ) 

C - OPTIONS  ARE... 

C  I  JOB!  1  )=1  ...TE  CASE 

C  I  JOB!  2)=1...TM  CASE 

C  IJQBI3)  =  NO.  OF  EXCITATIONS 

C  I  JOB!  4)  =  1..  .PRINT  OUT  CURRENTS 

C  I  JOB!  5 )  =  1...COMP.  TRANSMISSION  COEFFICIENT. 

C  I  J08(  6 )  =  1...COMP.  GAIN  AND  FIELD  PATTERNS 

C 

NE  X=  I  JOB  <  3  > 

K=1 

DO  1  1  =  1  .NEX 

RE  AO  (  1.1  0  2)  PHI(  K  )  .PHI  (K4-1  ) 

MRITEI3. 102)  PHI ( K ) . PHI ( K* 1 ) 

K=K+2 

1  CONTINUE 

READ!  1.1 02)  MUA. EPSA 
READ!  1.1 02)  MUB.EPSB 
READ!  1.1 02)  MUC.EPSC 
READ!  1.1 02)  FMC.DPHI 
RE  AD ( 1.1 00 )  NI 


C - COMPUTE  MAVENUMBER  OF  FREE  SPACE 

WAVN0=PI 4FMC/150. 

CALL  CDATAIMAVNO) 

C - - - COMPUTE  MAVENUMBERS  AND  IMPEDANCES  OF  ALL  REGIONS 

C  NORMAL  I2E0  BV  THOSE  OF  FREE  SPACE 


KA=CSQRT  < MUA4EPSA) 
ET  A=CSQR  T (MUA/EPSA  ) 
KB=CSQRT (MUB4EPSB) 
ET  B=CSQR  T I MUE/EPSB ) 
KC=CSQRT I MUC4EPSC ) 
ET C=C SQR  T (MUC/EPSC) 
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200  FORMAT** 1*.20X«* NORMALIZED  PARAMETERS  FOR  EACH  REGION  ARE...') 

201  FORMAT* *-*.27X.* REGION  A* . 14X. 'REGION  B '. 1 4X .' REGION  C* ) 

202  FORMAT**-*  .23X. • REAL • • 7X. •  IMAG*  .7  X.  *  REAL.  *  •  7X  •  •  IMAG*  • 

17X#  •  REAL.  •  *7X  •  •  I  MAG*  ) 

203  FORMAT* .'PERMITTI VI TY*.6X.6E 11 .41 

204  FORMAT*  *  —  *  * • PERMEABILITY • «  6X  »6E 11 .4) 

205  FORMAT** -•••WAVE  NUMBER' .9X. 6EI 1. 4) 

206  FORMAT** -••• IMPEDANCE* . I  IX .6 El 1 .4 ) 

HR 1TE (3* 200) 

HR I T  E  (  3.  201) 

HR ITE (3* 202) 

HRITEO.  203)  EPS A.EPSB •  EPSC 

HR ITE (3*  204)  MUA.MUB.MUC 

HRITE(3. 205)  KA.KB.KC 

HR ITE* 3*  206)  ETA.ETB.ETC 

IF*  I  JOB*  D.NE.l)  GC  TO  10 

CALL  SOL  N  (  1  •  I  JOB.  PHI.  NO.  NEX.  NX.  CP  HI) 

10  IF(I JOB* 21.NE.1)  GO  TO  11 

CALL  S0LNC2.  I  JOB  «PHI  .NO.  NEX.  NX  .CPHI) 

11  CONTINUE 
STOP 
ENO 


Sample  output  Is  presented  for  the  slit  in  Fig.  1  where  its 
cross  section  has  been  approximated  by  a  number  of  straight  line 
segments  as  shown  in  Fig.  3.  The  required  data  cards  are  shown  in 
Table  3.  Only  the  <p^  =  0  results  are  printed  out.  The  quantities 
PTA  and  PTC  printed  out  right  after  the  currents  are  the  real  power 
flow  across  apertures  and  F^  respectively. 
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0. 1 739274E 

00 

-0  .4305C82E 

00 

0. 1 739274E 

00 

0.4305682E 

00 

0. 326072SE 

00 

-0 .1699905E 

00 

0.3260725E 

00 

0  *  1699905E 

00 

1  2 

1 

1  1 

0.0000E  00  O.OOOOE  00 
0.0000E  00  0.4500E  02 

ARRAY  NO  =  |  6  12  16  21 
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► 


(.1,1) 


<»( 

<>( 

(.l5,.l) 

f - - 


(.05,0) 


Table  3.  Arrangement  of  data  cards  to  produce  sample  output  In 
Program  I.  $  signs  are  in  column  one. 


SOATA 

4 

.  17  392  74E  0  -.4305662E  0 

.  17392  74E  0  .43  0S682E  0 

•3260725E  0  -.1699905E  0 

.3260725E  0  .169990SE  0 

1  1  2  1  1  1 

0 «E  0  O.E  0 

O.E  0  45.E  0 

l.E  0  O.E  0  1 .E  0  O.E  0 

l.E  0  O.E  0  l.E  0  O.E  0 

l.E  0  O.E  0  l.E  0  O.E  0 

300 .E  0  2.E  0 

91 

1  6  12  16  21 

O.E  0 

•  IE  0 

•  2E  0 

•  3E  0 

•  4E  0 
.  5E  0 

. 05E  0  • 5E  0 

.IE  0  • 5E  0 

•IE  0  *4E  0 

•IE  0  *3E  0 

•  15  E  0  «3E  0 

•2E  0  «3E  0 

•  25E  0 

•  2E  0 

.  15  E  0 
.IE  0 

• 15E  0  .IE  0 

.IE  0  .IE  0 

.IE  0  O.E  0 

•  05E  0  O.E  0 

O.E  0  O.E  0 

*STCP 

// 
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WIDTH  OF  SLIT  IN  REGION  A=  0.5000E  00 


thickness  of  ground  plane  =  o.aoooe  oo 

WIDTH  OF  SLIT  IN  REGION  C  =  0.2000E  00 


INPUT  DATA  DEFINING  CONTCUR... 


NCOE 

ULX 

ULT 

RCX 

RCV 

DC 

1 

O.OOOOE 

00 

0.  1  OOOE 

01 

O.OOOOE 

00 

0.50  OOE 

-0  1 

0.1000E  00 

2 

O.OOOOE 

00 

0.  1  OOOE 

01 

O.OOOOE 

00 

0. 15  COE 

00 

0 . 1  OOOE  00 

3 

O.OOOOE 

00 

0.  1000E 

01 

O.OOCOE 

00 

0.  25  OOE 

OC 

0  •  1 OOOE  00 

A 

O.OOOOE 

00 

0.  1  000  E 

01 

O.OOOOE 

00 

0. 35  OOE 

OC 

0.1000E  00 

5 

O.OOOOE 

00 

0.  1  000  E 

01 

O.OOCOE 

00 

0.45  OOE 

00 

0.1 OOOE  00 

6 

0. 1000E 

01 

O.OOOOE 

00 

0.2500E-01 

0 . 50  OOE 

OC 

0 .5000E-01 

7 

0. 1000E 

01 

0. OOOOE 

00 

0.7500E- 

-01 

0.  50  OOE 

OC 

0  .5000E-0 1 

8 

O.OOOOE 

00- 

0.  1  000  E 

01 

0.1 OOOE 

00 

0.45 OOE 

00 

0  •  10 OOE  00 

9 

O.OOOOE 

OO- 0. 1  COO  E 

01 

0. 1 OOOE 

00 

0. 35  OOE 

00 

0.1  OOOE  00 

10 

0. 1000E 

01 

0. OOOOE 

00 

0.1 250E 

00 

0.  3000E 

00 

0 . 5000E  —  0 1 

11 

0. 1 000  E 

01 

O.OOOOE 

00 

0.1 7E0E 

00 

0. 30  OOE 

0  C 

0 .5000E-0 1 

12 

O.OOOOE 

00- 

0.  1  000  E 

01 

0.2000E 

00 

0.27  5  0E 

00 

0.5000E-01 

13 

O.OOOOE 

00-0.  1  000  E 

01 

0.2  OOOE 

00 

0.2250E 

0  C 

0 .5000E-0 1 

14 

O.OOOOE 

00- 

0.  1  000  E 

01 

0.2000E 

00 

0.  17  5  CE 

OC 

0 .5000E-0 1 

15 

O.OOOOE 

00-0.  1000E 

01 

0.2  OOOE 

00 

0.  12  5  OE 

OC 

0 .5000E-0 1 

16- 

0. 1 OOOE 

01 

0. OOOOE 

00 

0.1 7E0E 

00 

0.  10  OOE 

00 

0 . 50 OOE- 0  1 

17- 

0. 1 OOOE 

01 

0. OOOOE 

00 

0.1 250E 

00 

0. 10  OOE 

OC 

0 .5000E-0  1 

18 

0. OOOOE 

00-0.  1  OOOE 

01 

0. 1 OOOE 

00 

0.50  OOE -0  1 

0 . 1  OOOE  00 

19- 

0. 1000E 

01 

O.OOOOE 

00 

0.7500E- 

01 

0. OOOOE 

OC 

0 .5000E-0 1 

20- 

0. 1 OOOE 

01 

0. OOOOE 

00 

0.2500E-01 

0.  00  OOE 

00 

0 .5000E-0 1 

NORMALIZED  PARAMETERS  FOR  EACH  REGION  ARE... 

REGION  A  REGION  B  REGION  C 


REAL 

I  MAG 

REAL 

IMAG 

REAL 

I  MAG 

PERMITTIVITY 

0.  1 OOOE  01 

O.OOOOE  00 

0. 1 00  OE 

01  O.OOOOE 

00  0. 1 OOOE  01 

O.OOOOE  00 

PERMEABIL  ITY 


0. 1000E  01 


0.0000E  00  0.1 00  CE  01  0.0000E  00  0.  1000E  01  C.0000E  00 


WAVE  NUMBER 


0.  1  000  E  01 


O.OOOOE  00  0.1000E  01  O.OOOOE  00  0. 1000E  01  O.OOOOE  00 


I  »*»EOANCE 


0. 1000E  01 


O.OOOOE  00  0.1000E  01  O.OOOOE  00  0.1000E  01  O.OOOOE  00 
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EQUIVALENT  CURRENTS  FOR  TE  CASE 


PLANE  WAVE 

INCIDENCE*  PHI  =  ' 

O.OOOE 

00 

MAGNETIC  CURRENTS 

•  •  • 

SEGMENT  NO* 

REAL 

I  MAG. 

MAG. 

1 

0. 102  4279E 

01 

0.51  02  060E 

00 

0.11 443 15E 

01 

2 

0.540  0261E 

00 

0.4334 84 9E 

00 

0.6924863E 

00 

3 

0.662 6759E 

00 

0.4  761  68  9E 

00 

0.81601 23 E 

00 

4 

0.460  7493E 

00 

0.666771  IE 

00 

0.S104773E 

00 

S 

0  «  872  2345E 

00 

0.8758  489E 

CO 

0. 12360 84E 

01 

12 

0.695  6310E 

00 

0.  1S29186E 

01 

0. 1 956993E 

01 

13 

0*317 1800E 

00 

0.1 15532 7E 

01 

0.1 198074E 

01 

14 

0.301 9215E 

00 

0.1141 146E 

01 

0. 1 1804 1 OE 

01 

IS 

0.653 189SE 

00 

0.177671  IE 

01 

0.18929 75E 

01 

ELECTRIC 

CURRENTS 

TIMES  ETA. 

•  • 

NODE  NO. 

REAL 

IMAG. 

MAG. 

1 

0. 140  0  776E 

01 

-0.543752 8E 

00 

0. 1 5026 1 OE 

01 

2 

0.131 7951 E 

01 

-0.755564  IE 

00 

0.15191 68E 

01 

3 

0. 1270274E 

01 

—  0.96  9926  3E 

00 

0. 1 598234E 

01 

4 

0. 1426288E 

Cl 

-0.9693  009E 

CO 

0.1 724483E 

01 

5 

0.1651025E 

01 

—0. 7896 496 E 

00 

0.18301 44E 

01 

6 

0. 1726398E 

01 

-0.622740 7E 

CO 

0. 1835280E 

01 

7 

0. 193  8642E 

01 

-0.  86 54  89  8E 

00 

0.2123064E 

01 

8 

0.2013174E 

01 

-0.9156 96 7E 

00 

0.2211644E 

01 

9 

0. 1924732E 

01 

-0.9932 85  2 E 

00 

0.2 1659 1 9E 

01 

10 

0 . 1443425E 

01 

—  0.11 79  67 1 E 

01 

0.1 8641 61 E 

01 

11 

0. 8872479E 

00 

-0. 122155 7E 

01 

0.  1509771E 

01 

12 

0  .384  9248E 

00 

-0.1067224E 

01 

0.1  134S19E 

01 

13 

0.4556108E 

00 

-0.1108767E 

01 

0. 1 198726E 

01 

14 

0.5439433E 

00 

—0.1161 024E 

01 

0.12821 27E 

01 

15 

0. 443 41 71 E 

00 

-0.  1095  66  8E 

01 

0.  U81993E 

01 

16 

0.3681972E 

00 

-0. 104998 OE 

01 

0.111 2666E 

01 

17 

0 . 653  49  79E 

00 

—  0.11 9407  IE 

01 

0. 1467741E 

01 

18 

0. 133 1 197E 

01 

-0.106491  8E 

01 

0.170  4  7  39E 

01 

19 

0. 1582167E 

01 

-0.8777 12 7E 

00 

0. 1809318E 

01 

20 

0.  151  0957E 

01 

—  0.8338  836E 

00 

0.1 725790E 

01 

0.1755839E  01 
0.1768724E  01 


PTA  * 
PTC  = 


EXC  ITAT  IONS 

AND  TRANSMISSION  COEFFS 

0.  000  OE 

00 

0.000 OE 

00 

0.S630E 

00 

0.  000  OE 

00 

0.4S00E 

02 

0.4963E 

00 

TE  GAIN  AND 

FIELO  PATTERNS 

-0.900  0E 

02 

0.9184E 

00 

0.922 IE 

00 

-0.  880  0E 

02 

0.9186E 

00 

0.9222E 

00 

—  0*  850  OE 

02 

0.919  IE 

00 

0.9225E 

00 

—  0*  8*0  OE 

02 

0.9200E 

00 

0.9229E 

00 

—  0*  820  OE 

02 

0.921 3E 

00 

0.9226E 

00 

—  0*  800  OE 

02 

0.922 9E 

00 

0.9244E 

00 

-0*  780  OE 

02 

0.924 9E 

00 

0.9254E 

00 

-0.760  0E 

02 

0.9272E 

00 

0.92C5E 

00 

-0.  740  0E 

02 

0.929  8E 

00 

0.92 79E 

00 

-0.  720  OE 

02 

0.9328E 

00 

0.9293E 

00 

-0.700  0E 

02 

0.936 OE 

00 

0.9310E 

00 

-0.  680  OE 

02 

0.9396E 

00 

0.9327E 

00 

-0.6600E 

02 

0.943  4E 

00 

0.9346E 

00 

-0.  64  0  0E 

02 

0.9475E 

00 

0.93C7E 

00 

-0.620 OE 

02 

0.9S19E 

00 

0.9368E 

00 

—  0. 600  OE 

02 

0.9565E 

00 

0.9411E 

00 

-0.  580  OE 

02 

0.9613E 

00 

0.9434E 

00 

—  0. 560  OE 

02 

0.9662E 

00 

0.9458E 

00 

—  0.  540  OE 

02 

0.971  4E 

00 

0.9484E 

00 

-0.  520  OE 

02 

0.9766E 

00 

0.9509E 

00 

—  0. 500  OE 

02 

0.9820E 

00 

0.9535E 

00 

—  0. 480  OE 

02 

0.9875E 

00 

0.9562E 

00 

-0.  460 OE 

02 

0.993  IE 

00 

0.9589E 

00 

—  0*  440  OE 

02 

0.9987E 

00 

0.9616E 

00 

-0.  420  OE 

02 

0.1004E 

01 

0.9643E 

00 

—  0. 400  OE 

02 

0.101 OE 

01 

0.9670E 

00 

—  0  .  380  OE 

02 

0.101 SE 

01 

0.9696E 

00 

—  0. 360  OE 

02 

0. 1021E 

01 

0.9722E 

00 

—  0.  340  OE 

02 

0. 1026E 

01 

0.9748E 

00 

-0.  320  OE 

02 

0. 1032E 

01 

0.9773E 

00 

—  0  .  300  OE 

02 

0.103 7E 

01 

0.9797E 

00 

-0.  280  OE 

02 

0. 1042E 

01 

0.9821E 

00 

-0.  260  OE 

02 

0.1046E 

01 

0.9843E 

00 

-0.  240  OE 

02 

0.1 05  IE 

01 

0.9864E 

00 

—  0. 220  OE 

02 

0.1055E 

01 

0.9884E 

00 

-0.  200  OE 

02 

0. 1059E 

01 

0.9903E 

00 

-0.  180  OE 

02 

0.1063E 

01 

0.9920E 

00 

-0.  160  OE 

02 

0.106  6E 

01 

0.9936E 

00 

-0. 140  OE 

02 

0.1069E 

01 

0.99S0E 

00 

-0.  120  OE 

02 

0. 1072E 

01 

0.9962E 

00 

-0.  100  OE 

02 

0.1074E 

01 

0.9973E 

00 

-0.  800  OE 

01 

0.1076E 

01 

0  •  99  62E 

00 

—  0.600  OE 

01 

0.1 078E 

01 

0.9989E 

00 

-  0. 400  OE 

01 

0. 1079E 

01 

0.9995E 

00 

—  0.  200  OE 

01 

0. 108 OE 

01 

0.9998E 

CO 

0. 000  OE 

00 

0. 1  08 OE 

01 

0.1000E 

01 
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0.200  0E 

01 

0*108 OE 

01 

0.1000E 

01 

0.400  0E 

01 

0* 1 08  OE 

01 

0.9998E 

00 

0.600  0E 

01 

0* 1 079E 

01 

0.9994E 

00 

0*  800  0E 

01 

0.1077E 

01 

0.998SE 

00 

0. 100 OE 

02 

0.1076E 

01 

0.9980E 

00 

0. 120 OE 

02 

0.1074E 

01 

0.9971E 

00 

0*  140  OE 

02 

0*1 07  IE 

01 

0.9960E 

00 

0. 160 OE 

02 

0.1069E 

01 

0.9947E 

00 

0.  180  OE 

02 

0.106  5E 

01 

0.9932E 

00 

0*  200  OE 

02 

0.1062E 

01 

0.99 17E 

00 

0.220  0E 

02 

0*105  8E 

01 

0.9899E 

00 

0*  240  OE 

02 

0.1054E 

01 

0.9881E 

00 

0*  260  OE 

02 

0.1050E 

01 

0.9861E 

00 

0*  280  OE 

02 

0* 1046E 

01 

0.9840E 

00 

0*300  OE 

02 

0*104  IE 

01 

0.9817E 

00 

0*  320  OE 

02 

0.1036E 

01 

0.9794E 

00 

0*  340  OE 

02 

0*1 03  IE 

01 

0  *97  7 IE 

00 

0*360  OE 

02 

0* 1026E 

01 

0.9746E 

00 

0*380  OE 

02 

0.102  IE 

01 

0  *97  2  IE 

00 

0*  400  OE 

02 

0.1015E 

01 

0.96S6E 

00 

0  *  420  OE 

02 

0*101 OE 

01 

0.9670E 

00 

0.  440  OE 

02 

0.1004E 

01 

0.9644E 

00 

0*  460  OE 

02 

0.999  IE 

00 

0.9618E 

00 

0*  480  OE 

02 

0.993  7E 

00 

0.9592E 

00 

0*  500  OE 

02 

0.9834E 

00 

0.9566E 

00 

0*  520  OE 

02 

0*  983  IE 

00 

0*954  IE 

00 

0*  540  OE 

02 

0.9780E 

00 

0.95 16E 

00 

0*  560  OE 

02 

0.973 OE 

00 

0.9492E 

00 

0*  580  OE 

02 

0.9682E 

00 

0.9468E 

00 

0*  600  OE 

02 

0.9635E 

00 

0.9445E 

00 

0*  620  OE 

02 

0*959  IE 

00 

0.9423E 

00 

0*  640  OE 

02 

0*954  8E 

00 

0.9402E 

00 

0*  660  OE 

02 

0.950 8E 

00 

0.9383E 

00 

0*  680  OE 

02 

0*947  IE 

00 

0.93C4E 

00 

0. 700 OE 

02 

0.9436E 

00 

0.93  4  7E 

00 

0. 720 OE 

02 

0.9404E 

00 

0*933  IE 

00 

0.  740  OE 

02 

0.9375E 

00 

0.93 17E 

00 

0. 760 OE 

02 

0.934  9E 

00 

0.9304E 

00 

0.  780  OE 

02 

0*932 6E 

00 

0.9293E 

00 

0.  eoo  OE 

02 

0.9307E 

00 

0.9283E 

00 

0*  820  OE 

02 

0*9  29 1 E 

00 

0.9275E 

00 

0*  840  OE 

02 

0.9279E 

00 

0.9269E 

00 

0.  860  OE 

02 

0.9270E 

00 

0.9264E 

00 

0.  880  OE 

02 

0.926  5E 

00 

0*92625 

00 

0*  900  OE 

02 

0.9263E 

00 

0*926  IE 

00 
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EQUIVALENT  CURRENTS  FOR  TM  CASE 


PLANE  HAVE  I NCIOENCE  •  Phi  =  O.OOOE  00 

MAGNETIC  CURRENTS... 


NODE  NO. 

2 

3 

4 

5 

13 

14 

15 


REAL 

-0.425 4 752E  00 
-0.5227808E  00 
-0.485I277E  00 
— 0 . 377  691 1 E  00 
—0.57291  HE— 01 
—0 .714  3658E— 01 
— 0 • 563  3022E— 01 


I  MAG. 

—  0.11 47956E  01 

—  0. 134004  OE  01 

—  0.1 24555  8E  01 
-0.1033994E  01 

—  0. 125012  2E  CO 
—0.16 15084E  00 

—  0. 123260  3E  CO 


MAG. 

0.1224267E  01 
0.1 4384  04E  01 
0. 1336699E  01 
0.1100815E  01 
0.13751 47E  00 
0.  1766016E  00 
0.1 3552 19E  00 


ELECTRIC  CURRENTS  TIMES  ETA... 


SEGMENT  NO. 


PTA  =  0. 

PTC  =  0 . 


REAL 

IMAG. 

MAG. 

1 

0.986 5695E 

00 

-0. 351340 2E 

00 

0. 1047262E 

01 

2 

0.  15596196 

01 

— 0.5 828 362 E 

OO 

0. 1664965E 

01 

3 

0.121 5407E 

01 

-0.4935 9326 

00 

0.131 181  IE 

01 

4 

0. 181 7409E 

01 

-0.67  73  e6  7E 

00 

0.1 939543E 

01 

5 

0 .974  2750E 

00 

—  0.3403  84  2E 

00 

0. 1 032023E 

01 

6 

-0. 16046716 

01 

0.584943  IE 

00 

0. 1 707959E 

01 

7 

-0.  16262856 

00 

0.5866 562E- 

01 

0.1728863E 

00 

8 

-0.6836278E 

00 

0. 24  77  84  6E 

00 

0.7271 480E 

00 

9 

-0 .22098986 

01 

0. 839948  8E 

00 

0.23641 41E 

01 

10 

-0.201 7618E 

01 

C.  7909 234E 

00 

0.21671 OSE 

01 

11 

-0.39334276 

00 

0.  1692539E 

GO 

0.42821 19E 

00 

12 

—0.9100 121 E— 01 

0.  1502394E- 

01 

0. 9 22 3306 E- 

01 

13 

—0 . 2705745E 

00 

0.7862 99 7E- 

01 

0.281 7680E 

00 

14 

— 0 . 266  9684  E 

00 

0.77  3766  6 E— 

01 

0.2779555E 

00 

15 

-0.838 1677E-01 

0. 1 035 898 E- 

01 

0.8445448E- 

01 

16 

-0.369  09636 

00 

0. 1574180E 

00 

0.401 2636E 

00 

17 

-0. 1987742E 

01 

0.7681 25  IE 

00 

0.21309 94 E 

01 

18 

-0. 11425966 

01 

0.42  76  093E 

00 

0.121 9990E 

01 

19 

—0 .4  23 13526-01 

0. 753545  4 E— 

C2 

0.4297926E- 

01 

20 

-0. 1795144E 

01 

0. 66  0334  4E 

00 

0.1912914E 

01 

106884 8E-01 
4 894 04 8E— 02 
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excitations 

AND  TRANSMISSION  COEFFS 

0.  000  OE 

00 

0.000 OE 

00 

0.1SS8E- 

02 

O.OOOOE 

00 

0.450 OE 

02 

0.6828E— 

03 

TM  GAIN  AND 

FIELD  PATTERNS 

-0.  900  OE 

02 

0.1860E- 

12 

0.3019E- 

06 

—  0. 880  OE 

02 

0.229 9E- 

02 

0.33S6E— 

01 

—  0*  860  OE 

02 

0.9187E— 

02 

0.67 10E- 

01 

-0.  640  OE 

02 

0.2064E— 

01 

0.1006E 

00 

-0.  820  OE 

02 

0.366 1E- 

01 

0  •  1339E 

00 

—  0#  800  OE 

02 

0.5704E- 

01 

0.1672E 

00 

-0.780  0E 

02 

0.8186E- 

01 

0.2003E 

00 

-0.760  0E 

02 

0.1  HOE 

00 

0.2332E 

00 

-0.740  0E 

02 

0.I442E 

00 

0.26E9E 

00 

-0.720  0E 

02 

0.1816E 

00 

0.2983E 

00 

-0.7000E 

02 

0.222 8E 

00 

0.3304E 

00 

-0.680 OE 

0*2 

0.2677E 

00 

0.3622E 

00 

—0.660  OE 

02 

0.3162E 

00 

0.3937E 

00 

—  0. 640  OE 

02 

0.368  IE 

00 

0.4247E 

00 

-0.620  OE 

02 

0.423  IE 

00 

0.4553E 

CO 

-0. 600 OE 

02 

0.481 OE 

00 

0.4855E 

00 

—  0. 580  OE 

02 

0.5416E 

00 

0.51S2E 

00 

—  0. 560  OE 

02 

0.6046E 

00 

0.5443E 

00 

—  0. 540  OE 

02 

0.669 7E 

00 

0.5728E 

00 

-0.520 OE 

02 

0.7366E 

00 

0.6008E 

00 

—  0.  500  OE 

02 

0.8050E 

00 

0.6281E 

00 

—  0. 480  OE 

02 

0.8747E 

00 

0.6547E 

00 

—  0.  460  OE 

02 

0.9452E 

00 

0.6806E 

00 

—  0.  440  OE 

02 

0.  1016E 

01 

0.7057E 

00 

—  0. 420  OE 

02 

0.108  8E 

01 

0.7300E 

00 

-0.400  OE 

02 

0.11S9E 

01 

0.7535E 

00 

—  0. 380  OE 

02 

0.1229E 

01 

0.7762E 

00 

—  0.  360  OE 

02 

0.1299E 

01 

0.7979E 

00 

—  0. 340  OE 

02 

0  •  1  36  8E 

01 

0.8187E 

00 

—  0. 320  OE 

02 

0.  143  5E 

01 

0.8385E 

00 

-0.  300  OE 

02 

0.1 50  OE 

01 

0.8572E 

00 

-0.  280  OE 

02 

0.1562E 

01 

0.8750E 

00 

—  0.  260  OE 

02 

0.1622E 

01 

0.89  17E 

00 

—  0.  240  OE 

02 

0.1 68  OE 

01 

0.9072E 

00 

-0.  220  OE 

02 

0.1  73  3E 

01 

0.92 17E 

00 

—  0. 200  OE 

02 

0.1784E 

01 

0.9349E 

00 

-0. 180  OE 

02 

0.1 83 OE 

01 

0.9470E 

00 

-0.  160  OE 

02 

0. 1872E 

01 

0.9579E 

00 

-0. 140 OE 

02 

0.191 OE 

01 

0.967SE 

00 

-0. 120  OE 

02 

0.1944E 

01 

0.9759E 

00 

-0.  100  OE 

02 

0.1972E 

01 

0.9831 E 

CO 

-  0. 800  OE 

01 

0. 1996E 

01 

0.98C9E 

00 

—  0. 600  OE 

01 

0.2014E 

01 

0.9935E 

00 

—  0. 400  OE 

01 

0.2028E 

01 

0.9968E 

00 

—  0. 200  OE 

01 

0.2036E 

Cl 

0 .99  e8E 

00 

0. 000  OE 

00 

0.204  IE 

01 

0.1000E 

01 

0.200  0E 

01 

0*203 6E 

01 

0.9988E 

00 

0*  400  OE 

01 

0.2028E 

01 

0.9968E 

00 

0*600  OE 

01 

0*201 4E 

01 

0.9935E 

00 

0.600  0E 

01 

0. 1996E 

01 

0.9890E 

00 

0* 100  OE 

02 

0.1972E 

01 

0.9831E 

00 

0* 120 OE 

02 

0*  1944E 

01 

0.9760E 

00 

0. 140 OE 

02 

0*191  IE 

01 

0.9676E 

00 

0* 160  OE 

02 

0.1873E 

01 

0.9579E 

00 

0*  180  OE 

02 

0*183 OE 

01 

0.9471E 

00 

0.  200  OE 

02 

0* 1784E 

01 

0.9350E 

00 

0.  220  OE 

02 

0.1734E 

01 

0.92 17E 

00 

0*  240  OE 

02 

0. 1680E 

01 

0.90 73E 

00 

0*  260  OE 

02 

0.1623E 

01 

0.89 17E 

00 

0*  280  OE 

02 

0.1563E 

01 

0 .875 IE 

00 

0*  300  OE 

02 

0.1 50 OE 

01 

0.8573E 

00 

0*  320  OE 

02 

0.143 5E 

01 

0.8385E 

00 

0*340 OE 

02 

0.  136  8E 

01 

0.81 87E 

00 

0*  360  OE 

02 

0.1299E 

01 

0.7980E 

00 

0.  380  OE 

02 

0*  1 23 OE 

01 

0.77C3E 

00 

0*  400  OE 

02 

0.1159E 

01 

0.7536E 

00 

0. 420  OE 

02 

0.108SE 

01 

0.730 1 E 

00 

0. 440 OE 

02 

0.101 7E 

01 

0.7058E 

00 

0*  460  OE 

02 

0.945 5E 

00 

0.6807E 

00 

0.480 OE 

02 

0.8749E 

00 

0.6548E 

00 

0. 500 OE 

02 

0.8053E 

00 

0.6282E 

00 

0*  520  OE 

02 

0.7368E 

00 

0.6009E 

00 

0  *  540  OE 

02 

0.6699E 

00 

0.5729E 

00 

0*  560  OE 

02 

0.604 7E 

00 

0.5444E 

00 

0*  580  OE 

02 

0.541 8E 

00 

0.51 52E 

00 

0*600  OE 

02 

0.4812E 

00 

0.4856E 

00 

0*  620  OE 

02 

0.4232E 

00 

0.4554E 

00 

0*  640  OE 

02 

0.3682E 

00 

0.4248E 

00 

0. 660  OE 

02 

0.3163E 

00 

0.3937E 

00 

0.680  OE 

02 

0.2678E 

00 

0.3623E 

00 

0*  700  OE 

02 

0.2228E 

00 

0.3305E 

00 

0  .  720 OE 

02 

0.1816E 

00 

0 .2983E 

00 

0. 740 OE 

02 

0.1443E 

00 

0.2659E 

00 

0. 760  OE 

02 

0.111 OE 

00 

0.2332E 

00 

0*  780  OE 

02 

0.8188E- 

01 

0.2003E 

00 

0*  800  OE 

02 

0.5706E-01 

0.1672E 

00 

0*  820 OE 

02 

0.3662E-01 

0.1340E 

00 

0  .  84  0  0E 

02 

0.2064E-01 

0.1006E 

00 

0.  860  OE 

02 

0. 9188E- 

02 

0.67 10E- 

01 

0*  880  OE 

02 

0.2299E-02 

0.3356E- 

01 

0. 900  OE 

02 

0. 1606E- 

09 

0.88 7  IE- 

05 

2.1.3  Minimum  Storage  Requirements  for  Arrays 


The  minimum  storage  required  for  each  array  used  in  Program  I 

is  given  here.  Arrays  which  are  execution- time  dimensioned  are  not 

mentioned  (i.e.,  array  UL  of  subroutine  DECOMP).  Integers  which  are 

used  to  specify  the  array  sizes  are  defined  by: 

ND(i)  =  Node  number  N^  where  i=l,2,3,4,5. 

NGQ  =  Order  of  Gaussian  quadrature  formula  used 

for  numerical  integrations. 

NU  (1)  =  Number  of  elements  in  v\ 

-*.3 

NU(2)  =  Number  of  elements  in  V  . 

NU(3)  =  Number  of  elements  in  riQI. 

NTU  =  NU(1)  +  NU(2)  +  NU(3)  =  total  number  of 
unknowns  in  system  of  equations  (2-17). 

NEX  =  Number  of  excitations. 

The  allocations  required  for  the  arrays  in  common  blocks,  which  appear 
in  several  program  segments,  are  given  by: 


CUV:  DIMENSION  ULX(ND(5)),  ULY(ND(5)),  ND(5) 

C:  DIMENSION  RCX(ND(5)),  RCY(ND(5)),  DC(ND(5)) 
CK:  COMPLEX  RXK(ND (5)),  RYK(ND (5) ) ,  DCK(ND(5)) 
GQI:  DIMENSION  A (NGQ) ,  T(NGQ) 


The  allocations  required  for  arrays  used  in  subroutines  are: 
MAIN  PGM:  DIMENSION  PHI(2*NEX),  IJ0B(6) 

SOLN:  COMPLEX  Y (NTU*NTU) ,  IX(NU(1)*NEX) , 
ANS(NTU) ,  X(NTU) ,  YHS(NU(1)), 

VM(NTU*NEX) 


DIMENSION  IJOB  (6) ,  IPS(NTU),  NU(3), 
ND(5),  PHI (2*NEX) ,  PIN(NEX),  PT(NEX) 


PCK:  COMPLEX  X(NTU) 

TEMAT  and 

TMMAT:  COMPLEX  YD1((NU(1)  +  NU(2))*NU(3))  , 

YHS (NU (1) ) ,  IHAT (NEX*NU (1) ) 

DIMENSION  PHI (2*NEX) ,  PIN(NEX), 

NU  (3) 

GAIN1:  COMPLEX  FT((ND(4)-ND(3)+1)*NI) , 

XI (NTU*NEX) ,  DCK(ND(4)-ND(3)+1), 

RYK(ND(4)-ND(3)+1), 

DIMENSION  PHI (2*NEX) ,  FP(NI), 

GA(NI) ,  PT(NEX),  NU (3) [Note:  NI  is  defined  on  p.  7] 
TRANS1:  COMPLEX  YHS(NU(1)),  YAUX(NU(1)), 

VC(NU(1)),  VM(NTU*NEX) 

DIMENSION  PHI (2*NEX) ,  PIN(NEX), 

PT(NEX),  NU (3) 

TMEXC  and 

TEEXC :  COMPLEX  IX (NU (1)*NEX) 

DIMENSION  PHI (2*NEX) ,  PIN(NEX),  ND(5) 

P2Q2:  COMPLEX  Y((NU(1)+NU(2))*NU(3)) 

DIMENSION  NU (3) ,  ND(5) 

DECOMP:  DIMENSION  SCL(NTU),  IPS(NTU) 

SOLVE:  DIMENSION  IPS(NTU) 
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2.2  Subroutine  CDATA 

The  necessary  argument  parameter  here  is  WAVNO,  the  wavenumber 
of  free  space.  This  subroutine  reads  the  second  sequence  of  data  cards 
described  in  Section  2.1.1.  The  first  card  contains  the  node  numbers 
which  specify  the  beginning  and  end  points  of  lines  I\  in  terms  of 
the  number  of  straight  line  segments  which  comprise  them.  These  numbers 
are  stored  in  array  ND  apd  are  arranged  such  that  *  1  denotes  the 
origin  (where  and  meet) .  This  point  is  also  represented  by  N,. 
because  C  is  a  closed  contour.  Each  line  is  broken  up  into 
subsections.  The  next  data  card  read  in  contains  the  y  coordinate  of 
node  which  is  zero.  Since  lines  and  are  parallel  to  the  y  axis, 
only  one  coordinate  is  used  to  specify  points  along  them. 

Quantities  computed  and  stored  in  common  blocks  are  the  tangential 
unit  vector  for  each  line  segment  (stored  in  ULX  and  ULY) ,  the  length  of 
each  line  segment  (stored  in  DC) ,  and  a  vector  from  the  origin  to  the 
midpoint  of  each  line  segment  (stored  in  RCX  and  RCY) .  These  last  three 
are  all  multiplied  by  a  factor  of  kQ  in  DO  loop  6. 

It  is  helpful,  when  using  the  programs,  to  draw  the  slit  cross 
section  labelling  the  coordinates  of  the  endpoints  of  each  straight  line 
segment  as  shown  in  Fig.  3.  Then  the  numbers  which  go  on  the  required 
data  cards  can  be  written  down  directly. 

SUBROUTINE  COATAI  WAVNO) 

COMMON  /CUV/UL.XI  60)  .ULY 1 60  )•  NO(S)  /C/ RCXC 60 > . RCVI 60 > » OC< 60) 
100  FORMAT (615! 

102  FORMAT (6E11.4) 

RE  AO  I  1.1  00M  NO  (  1  >*1=1.5) 

DRITEO*  108)  NO 

MF=1 

0=0* 

READ! 1.1 02)  Y1 
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DO  5  J*l  .3.2 
Ml  =NO  <  J)  ♦  1 
N2=ND(  J4  I  ) 

S=0. 

DO  1  I=N  I  »N2 
READ! I.l 02)  V  2 
RCXI  1-11=0 
RCVt  1-11  =IYl+Y2»/2. 

OCI 1-11= A8S! V2-Y1 1 
UL  Y(  I  — 1)  =  MF 
ULX!  1-11=0. 

V1=Y2 

S=S*0C(1-1 1 

1  CONTINUE 

1FU.EQ.1)  WRITE  (3.1011  S 
IF ( J • EQ«  3 1  WRITE (3.1 04}  S 
XI  =0 

Ni  =ND(  J4  114-1 
N2=N0C  J4  21 
DO  2  I=N1.N2 
READ! 1.1 021  X2.Y2 
RCX<  1  —  1I=(X1. 4X21/2. 

RCVC 1-11= (VI 4Y21/2. 

AX=X  2— XI 
AV=Y2-Yl 

OS=SQRT( AX*AX4AY*AY) 

ULX<  I  —  1 1  =  AX/  OS 
UL  VC  I-11=AV/DS 
DC  C  I  —  I  }=*DS 
X1=X2 
V I  =Y  2 

2  CONTINUE 
D=X2 
NF=— MF 

1FCJ.EQ.11  WRITE  C  3 . 1  03 1  D 

5  CONTINUE 

101  FORMAT!* 1 WIDTH  OF  SLIT  IN  REGION  A=*.E11.4| 

103  FORMAT!* -•••  THICKNESS  OF  GROUNO  PLANE  =*.EI1.4) 

104  FORMAT!* -• .* WIDTH  OF  SLIT  IN  REGION  C  =*.E11.4I 

105  FORMAT!* -*,•  INPUT  DATA  DEFINING  CONTOUR. ..»} 

106  FORMAT! •-*.* NODE*  .5X,*ULX*  .8X**LLY*.8X.*RCX*  «8X.*RCY*. 
18X.*  DC*} 

107  FORMAT!*  *.IS.SE11.4) 

108  FORMAT!*-*.* ARRAY  ND  =*.5151 
M  =ND  (51  —  1 

WRITEC3. 1051 
WRITEC3. 1061 
DO  6  1=1  .Nl 

WR ITEC3.  1071  I .ULX! I l.ULV!  II  .RCX!  II. RCY !I1. DC! I  1 
RCX!  I  1=RCX(  I  14WAVN0 
RCV!  I  )=R  CV(  I  14WAVN0 
DC  !  1  l=OC  (  I14WAVN0 

6  CONTINUE 
RETURN 
END 
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2.3  Function  Subprograms  CH02  and  CH12 


These  function  subprograms  return  the  Hankel  functions  of  the 
second  kind,  orders  zero  and  one,  for  a  complex  argument  as 

CH02 (z)  =  H^2)(z) 

CH12 (z)  =  H^2)(z) 

where  z  is  a  complex  number.  The  polynomial  approximations  of 
Abramowitz  and  Stegun  [2, ■ 9.4 .1-9.4 .6]  for  real  z  are  used.  It  is 
assumed  that  these  polynomial  representations  may  be  analytically  con¬ 
tinued  into  the  complex  plane  by  replacing  real  z  by  complex  z  [3]. 

As  |z|  becomes  large,  computations  using  these  polynomials  may  become 
unreliable  as  pointed  out  in  [3].  Thus  the  polynomial  approximation 
is  used  when  |z|  £  12  and  the  asymptotic  expansion  for  the  Hankel 
function  [2,  9.2.8-9.2.10]  is  used  when  |z|  >  12.  Enough  terms  in 
the  asymptotic  series  are  taken  until  the  magnitude  of  a  term  is  less 
than  some  positive  constant  EPS- 


COMPLEX  FUNCTION  CH021Z1 

COMPLEX  U/<0«»l.)/>Z*BSJ0»eSV0»Y«  W.P  0  »F0  »F . CEXP 

COMPLEX  CCOS  .CSl  N.CSQPT • CLOG •  SPO* SQO.QO 

PI=3 • 141 593 

EPS=.  IE-0  7 

A=CAB  S ( Z ) 

IFtA.GE. 12.)  60  TO  5 
BS J0=( 1. .0.) 

IF1A.EQ.0.)  GO  TO  2 
IF1A.GT. 3.)  GO  TO  1 
V=Z*Z/ 9. 

8S  J0=  !.♦  Y*(-2.24  9999  7+Y*<  1  .2656 20 6+Y* (—.31 63 866 
l*Y*<  .  044  4479*  Y4(-.  0039444+  V*  .00  02  1))  )  i  ) 

GO  TO  2 
1  IP3./I 

F0  =  .  7978  8456  »**(-.  000000  77 +W*<-. 0  055  2  744-WM-  .0000951  2 
1»W*(  .001  37237+W*<-. 000 728054  k*. 00014476)))  1  ) 
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«  N  CO  (7> 


PO  =  .  7853  9  8I6*W*C • 041 66397+ •* C .000 039544**1 -. 00262573 
14W*I .000541254**1 ,00029333-W*. 000  135S8)  >  I  I  > 

BS JO=FO*  CCOS ( Z— PO )/CSQRT (  Z  ) 

2  CONTINUE 
BSY0=(-1 .675.0.) 

IP (A .60. 0.)  CO  TC  3 
IF ( A • GT • 3 • )  GO  TO  4 

BSY0-.63  66I9774CL0GC .5*Z )* BS JO* .3 6746691 4Y* < .60559366 
14V*{-.74  3503  64 4Y* I .25300 1 i 7* Y*I — • 0426 121 44Y* (• 0042  79 16 
2— Y*.  00024846  )  )  )  )  ) 

GO  TO  3 

4  CONTINUE 

BS Y0=F0*  CS IN (Z—P 0 l/CSQRT C  Z  ) 

3  CONTINUE 
CH02=ESJ  0-U4BSY0 
RETURN 

5  W=  8.  ♦  Z 

v=**w 

SP 0=-9./  C  2.*Y) 

PO-1  .♦SPO 
00  6  I-I  •  10 
Kl=4*  141 
K2=K142 
K3=2*  1  +  1 

SP0=-SP0*Kl*Kl*K2*K2/< K3*<  K3  4  l  )  #Y  ) 

P0=P0tSP0 

IF<CABS< SPO) .LE.EPS)  GO  TO  7 
CO  NT  1NUE 

SQ 0=225.  /<  6.  *Y**  ) 

Q0=- 1  ./*  4SQ0 
DO  8  1  =  1  •  10 
K  1=4  *  I  *-3 
K2=K1 42 
K3=2*  1+2 

SQ0=— SQ0*Kl*Kl*K2*K2/( K3*I  K3  4 I) *Y ) 

GO=QO+SQO 

IFCCABSl SQO) .LE.EPS)  GO  TO  9 
CO  NT INUE 

F=CSQRT( 2.*U/PI/Z)*CEXP<-U*Z ) 

CH02  =  F*(  PO-U4QO) 

RETURN 
END 


COMPLEX  FUNCTION  CHI 2( Z) 

COMPLEX  U/iO  .. 1.  )/.Z.8SJl. BSY  1. Y.  W.P  1  .FI ,CEXP 
COMPLEX  CC0S.CS0RT.CL0G.CSIN.SP1.SQ1  .Ql.F 
PI =3 • 141 593 
EPS=.  IE-07 
A=  CABS  <  Z  ) 

IFIA.GE. 12.)  GO  TC  5 
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BSJ1=0. 

IF  (A.EQ.  0.1  GO  TO  2 
IFIA.GT. 3.1  GO  TO  1 
V=Z*Z/9. 

BS J1  =  Z*C  .54V*I-.S62499854Y*( .2109 35734V*!-. 03954289 
14V*( .004  4  331 S4Y*I-. 00031 76 14 V*. 00 001  1 09 III  )  ) 1 
GO  TO  2 

1  *=3./2 

Fl=. 7978 84564 Y*( .00000 1564  Y* ( .0 16  596  6  74Y*! .00017105 
14Y*C-.00  2495 114V*< .001 13653- Y*. 00020 033) >)  ) 1 
PI =2 . 356 1 944 9 4 Y* (—.1 249961 24Y*< -• 000 056504 Y* I .00637879 
1 4Y  *C  —  .00  0  743484 Y* I—. 000798  244- Y* .0  0029166 ) ) ) ) ) 

BS J1=F14 CCOS I Z-P 1 )/C SORT* Z) 

2  CONTINUE 
BSV1=<-1 .675.0.) 

IF (A. EG. 0.)  GO  TO  3 
IFIA.GT. 3.)  GO  TO  4 

6SY1 = (— • 636619774V*! .2212091 4  Y* <2 .16 827094V* 1-1.31 64 827 
14Y*< .312  3951 4Y*I -.04009764V* .00  27  873)  )) ) ))/Z 
24.636619 774CL0GI .5*Z)*BSJ1 
GO  TO  3 

BSVI=F1*CSINIZ-P1 )/CS0RT(Z) 

CO  NT  INUE 

CM 12— 8SJ 1-U4BSV1 
RETURN 
Y=8.*Z 
Y=  Y*Y 

SP1=15./I  2.*Y) 

Pl=l . +SP 1 
00  6  1=1  •  10 
Kl=4-f44 141)4*2 
K2=4— 1 4*  143) 4*2 
K3=2*  141 

SP1=-SPI 4K 1*  K  2/1 K34I K341 )*Y) 

P1=P14SP  1 

IFICABSISP11.LE.EPS)  GO  TO  7 
CONTINUE 

SQ1=— 105./I2.4V4Y) 

01=3 • /Y4  SQ 1 
00  8  1=1  .  10 
K1 =4—  1 44  1  43  )  4  *2 
K2=4—  <  4* 145) 4*2 
K3=2*I42 

SQ 1=—  SQ1 *K1*K2/I K34IK341 )*V) 

01=01 4SQ 1 

IF(CABSISOI).LE.EPS)  GO  TO  9 
CONT INUE 

F=U*CSQR  T I  2 • 4U/P I /Z ) *CEXP( — U4 Z ) 

CM 12=F*( P1-U4Q1 ) 

RETURN 
END 
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2.4  Subroutines  TMEXC  and  TEEXC 

The  subroutines  compute  the  excitation  vector  given  by  Eq. 
(2-28) ,  for  the  TM  case  (TMEXC)  or  the  TE  case  (TEEXC) .  The  argument 
parameters  are  defined  by: 


Input:  NU1 

=  number 

of 

elements  in  I*. 

NEX 

=  number 

of 

excitations. 

ETA 

= 

a  o 

KA 

=  k  /k 
a  o 

WAVNO  =  k 

o 

PHI  =  excitation  array  defined  in  Section  2.1.1. 

ND  -  node  array  defined  in  section  2.1.1. 

-►i 

Output:  IX  =  array  containing  vector  I  for  all 

excitations. 

PIN  =  array  containing  the  time  average  power 
times  intercepted  by  the  aperture 

T  when  the  source  is  normally  incident 
for  each  excitation. 

The  possible  excitations  here  consist  of  a  plane  wave  incident  at  an  angle 
(f>  measured  with  respect  to  the  negative  x  axis  and  a  line  source  placed  at 
coordinates  (xg,  y  )  in  region  a.  The  coordinates  of  Fig.  1  are  used  where 
-°°  <  yg  <  00 ,  xg  <  0,  and  -90°  £  <J>*  £  90°.  The  strength  of  each  excitation 
is  adjusted  so  that  the  electric  field  is  unity  and  has  zero  phase  at  the 
center  of  the  illuminated  aperture  face 

DO  loops  1  and  5  compute  the  elements  of  I*  for  plane  wave  inci¬ 
dence  and  use  Eq.  (3-40)  for  the  TE  case  and  (4-33)  for  the  TM  case.  DO 
loop  6  computes  the  elements  of  I  for  line  source  incidence  and  uses 


29 


in  * 


Eq.  (3-43)  for  the  TE  case  and  (4-36)  for  the  TM  case.  Here  a  Gaussian 
quadrature  formula  is  used  for  the  integrations.  The  time  average  power 
intercepted  by  when  the  source  is  normally  incident,  denoted  by  P^N 
in  [1]  and  given  by  Eqs.  (5-14)  and  (5-15)  for  the  TE  case  and  (5-18) 
and  (5-19)  for  the  TM  case,  is  stored  in  array  PIN  as 

PINO)  -  Wu, 

where  PiN  is  computed  for  the  jth  excitation  and  j  =  1,2,...,  NEX.  This 
computation  is  used  later  in  subroutine  TRANS1  for  normalizing  the  trans¬ 
mission  coefficient. 


SUBROUTI  NE  TMEXCI  IX.NU1  *  NEX.  ETA .K A, W AVNO .PH I  .PIN. NO) 

COMPLEX  CEXP.U.USPHI .RXK.RYK .OCX. WA2 .CH02.CH12 

COMPLEX  IX(500).ETA.KA. ARGi.FE.RS .MA 

COMPLEX  ARG2 .SUM  1  . SUM2.C I . C2 .CSQRT  . XS.YS 

COMMON  / CK/R  XK(60).RYK(60)  .OCKiCO )/GQI/A(10)  .TC 10I.NGQ 

01  MENS  ION  PH  l  <  100).PIN(1  00  )  •  NO  l  5) 

DATA  PI/3.141593/.U/<0«.1.)/ 

WA2= (RYK (N0( 21-1  ) *OCK( NO ( 2 ) -  1 ) / 2. 
l*RYK<NO<  in-OCK<NC(I)  )/2.)/2. 

MA  =R  Y  K  <  N  0  {  2  )  —  I  )*OCK(  NO<  21-1)  /2.-R YK(  NOC  1  )  )  «-DCK<ND<  1)  )/2. 

K=  1 
KC=1 

00  1  J=l  .NEX 

IF(PHI(K ) .NE.O.)  GO  TO  10 
IF(PHI(K*1).E0.0.)  GO  TO  3 
CP HI =  COS ( PHI IKM ) API /ISO.) 

USPHI=U* SIN( PHIIK+l) 4PI/180.  ) 

FE=CPHI/ (ETA4KA4USPHI ) 

00  2  1  =1  .NU1 
Cl=OCKCI ) *USPH I 
C2=0CK< I *1 )*USPH I 

ARG1  =  (RY  KID  *DCK  (  I  )  / 2.  —  *  A2  )  * U SPHI 

IXCKC)=-FE*CEXP( ARG1  )*<  < CEXPC-C 1) -1.  )/Ci4l CEXP<C2)-1 . >/C2) 
KC=KC ♦ 1 

2  CONTINUE 
GO  TO  4 

3  DO  5  1  =  1  .  NU1 

IX(KC)=-  I  OCKI  I  >«-DCM  1 41  )  )  /  1 2 . 4K  A*  ETA  ) 

KC=KC ♦ 1 
CONTINUE 

PIN! J )— R  E AL 1 WA/<  ETA4KA) ) 
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GO  TO  11 

10  CONTINUE 

XS=W  A  VNO  *KA*FHI( K ) 

YS=*A VN0*KA*PHI(  K41 ) 

RS=CSQRT I  XS*XS4(  WA2-YS)**2 > 

FE=CH02(  RS) 

DO  6  1=1  » NU1 
SUM1  =  0. 

SUM2=0. 

00  7  L=1  •  NGQ 

ARG1=CSQRT(XS*XS4(DCK( 1 ) *T IL  >  4RYK  (I)-YS)**2I 
ARG2=CSQRT(XS*XS4(0CK(  1*1  »  ♦T<LMRYK(  I41J-YS>**2) 
SUM1  =  SUM  1  4 A(  L  ) * (  T  (L  ) ♦«  5 )  *C HI  2 1 ARG  1 )  /  ARG l 
SUM2=SUM  2  +  A( L )*( .S-TCLJIACHl 2<ARG2I/ARG2 
7  CONTINUE 

IX  I  KC  l=X  S*(  OCK(  I  )*SUM1  40  CK  (  1  41  )  *S  UM2  )  /(  ETA4K  A*U*FE  > 
KC=KC4l 

6  CONTINUE 

THET=2«*  AT  AN (REAL (Y A/ (  2.*RS)  )  ) 

PI N<  J 1=2 .*THET/REAL(PI *ETA *K A*C AB S( F E  1**2 ) 

11  CONTINUE 
K=K4  2 

1  CONTINUE 

RETURN 
END 


SUBRCUTI  NE  TEEXCI IX.NU1.NEX, ET A .K A . W A VNO « PH I .PIN, NO) 
COMPLEX  1 X ( 5  00 ) , ETA.KA.FE, ARG, SUM  »RS • XS*  YS. U  .  WA 
COMPLEX  CH02 .CHI  2 .CSIN.RXK .R  YK , CC  K.YA2.CSQRT .CEXP 
COMMON  / C K/R  XK  C  6  0  )  ,R VK ( 60 )  .0CM60 )/GQI/A( 10).T(10).NGQ 
DNI  ME  NS  ION  PH  1 1  100).PIN(  1  00  )•  ND<  5) 

DATA  PI/ 3 . 14 1593/ ,U/( 0. , 1 .  )/ 

YA2=(RYK(  ND(  2>-l  )40CK( ND(2»- 1  )/2. 

14RYK ( ND(  1  )  )  —  DCK C NC<  1 ) 1/2.) /2  . 

NA=RYK(N0(2>-1  I4  0CKI  NO (2  >-l)/2.-RYK<  ND(  1  )  )40CK<N0(  1)1/2. 

K=l 

KC=1 

00  1  J=1  .NEX 

IF (PH  I  (K » .NE .0. )  GO  TO  10 
IF(PHl(K41).EQ.O.)  GO  TO  3 
SPHI=SIN (PHI IK41  )4P 1/180.) 

00  2  1=  1  .  NU 1 
ARG=OCK(  I  )*SPHI/2  • 

FE=OCK ( I  I *CE  XP ( U* SPH I * ( R  YK ( I  > -W A2  )  ) / ( ETA*K A ) 

IX(KC)=FE*CSIN(ARG)/ARG 

KC  =KC  4 1 

2  CONTINUE 
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CO  TO  4 

3  DO  5  1=1  ,NU1 

IX  f  K C  )=D  CK I  I  J/IK  A*ET  A) 

KC=KC*1 
CONTINUE 

PIN*  J)*REAL( WA/< ETA4KA) » 

CO  TO  11 

10  CONTINUE 

XS— WAVNO  *KA*PHI<  K ) 

VS=WAVNO*KA*PHI( K*1 ) 

RS-CSGRT (XS4XS+I «A2-YS)*«2 ) 

FE=CH12C  RS) 

OO  6  1*1  .  NU1 
SUM* 0  • 

00  7  L*i  •  NGQ 

ARG=CSQRT(XS*XS+<OCK<  I  )*T<  LI  *RYK<  I1-YSI442I 
SUM*SUM+  AIL)  *CH02<  ARG) 

7  CONTINUE 

IXIKC  )=U  *OCK  (  I I4SUM/IET A*K  A*FE1 
KC=KC4"1 

6  CONTINUE 

THET*2.*ATAN<REAL(WA/(2.*RS)  I) 

PIN! J  1*2 • 4THET/RE AL IPI *ETA*K  A*C  AB S(FE  1**2) 

11  CONTINUE 
K=K+2 

1  CONTINUE 

RETURN 
ENO 
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2.5  Subroutine  P2Q2 

This  subroutine  computes  the  inner  product  of  Eq.  (3-18)  for 

the  TE  case  or  inner  product  Q2  of  Eq.  (4-16)  for  the  TM  case.  The 

argument  parameters  are  defined  by 

Input:  NU  =  array  containing  numbers  of  unknowns 
M*" ,  ,  and  . 

ND  =  node  array  defined  in  2.1.1. 

ID  =  integer  option  variable,  ID  =  1  for 
TE  case  and  ID  =  2  for  TM  case. 

Output:  Y  =  array  containing  the  submatrix 


of  Eq.  (2-17). 

The  array  Y  is  initialized  to  zero  and  the  computation  is  quite  straight¬ 
forward.  The  elements  are  stored  columnwise. 


SUBROUTINE  P2Q2I Y.NU.ND.ID) 
COMPLEX  Y ( 1000) 

INTEGER  NU<  3  > • NO  C  5 ) 

COMMON  / C/RC  XI60I.RCYI60).  DC ( 60 ) 
NU  1=  NU(  1  ) 

NU2=NU<2 I 
NU3=NU<3  > 

NR*NUI+NU2 
K=  1 

DO  I  IC= 1 «NU3 
DO  1  IR-l.NR 
V*K)=0. 


K=K*1 

1  CONT 1 NUE 

C - IO=I...TE  U  MATRIX  TO  BE  COMPUTED 

C - 10=2.  *.TM  U  MATRIX  TO  BE  COMPUTED 

MF=3  — 2*1  D 
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K=  l 

00  2  1=1  •  NUt 
Y<K)=NF*DC< I )/4. 

V<  K*Nfl)=  MF *OC  <  I  ♦  I O—  1  !/♦.. 

K=K+ 1  *KP 

2  CONTINUE 

NO  3=  N  0 ( 3 1-1 
K=NR*NCX3  ♦NUl  *1 
OO  3  1=1  .  NU2 
Y(  K)  =  MF*  0C(  I  «N03  !/♦* 

Y<  K+  NR  )=  MF #0C C  I ♦NO 34  ID—  1  )/♦. 
K=  K*  1  *NR 

3  CONTINUE 
RETURN 
END 


2.6  Function  Subprograms  PI,  P6S,  Q5,  P5,  and  ALPHA 

These  function  subprograms  are  quite  straightforward.  PI,  P6S, 

Q5,  and  P5  all  returp  the  result  of  a  symmetric  product,  where  the  integral 
has  been  approximated  by  a  Gaussian  quadrature  rule.  Their  use  is 
succinctly  described  by: 

k  n 

P1(ICM, ICN)  =  Px  and  Px  is  given  by  Eq.  (3-16) 


I  CM  =  m 
ICN  =  n 

P6S (LCM , LCN , ISM , ISN)  =  S6(m,n,p,q)  of  Eq.  (3-37) 
where 

LCM  ■  m 
LCN  -  n 
ISM  -  p 
ISN  -  q 
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Q5 (ICM, ICN)  «  S1  +  s2  which  are  given  by  Eqs.  (4-29) 
and  (4-30)  where 

ICM  =  m 
ICN  =  n 

P5 (ICM,  ICN)  =  +  s2  which  are  given  by  Eqs.  (3-31) 

and  (3-32)  where 

ICM  =  m 


ICN  =  n 

ALPHA (z)  =  a(z)  of  Eq.  (3-17)  where  z  is  a  complex 
number.  This  integral  is  computed  by  Struve  func¬ 
tions  [2,  11.1.7],  the  result  being  given  by 

a(z)  =  z  H^2)(z)  +  z[HQ(z)  hJ2)(z)  -  H^z)  H<2)(z)] 


where 

Vz) 

*j(«) 


Z 


2  2 
1.3 


2  2  2 
1.3.5 


7 

z 


12.32.52.72 


2 

z 


12.3 


4 

z 


2  2 
1.3.5 


+ 


6 

z 


2  2  2 
1.3  .5  .7 


8 

z 


2  2  2  2 
1.3  .5  .7  .9 


COMPLEX  FUNCTION  PIC ICM. ICN) 

COMMON  /CUV/ULXC  60 ) .ULYC60 )• NOC  S) /CK/RXKf 60) .RYKC60) . DCKC60) 

COMMON  /GQI/AC  10  )  .Tf  10)  .NGQ 

COMPLEX  RXK.RYK.OCK. OCM . DC  N*  RMN  X. RMNY 

COMPLEX  CH02 .SUM. AX. AY.CSQRT .ARC. ALPHA 

SUM=  0 . 

DCM=DCK<  ICM) 

OCN=  OCM  ICN) 

IFCICM.EO.ICN)  GO  TO  2 
RMNX=  RXK (  ICM )-RXK< ICN) 

RMWIT  =  RYK  <  ICM  )-RYKC  ICN) 

DO  1  1=1  •  NGQ 

00  1  J=1  .NGQ 
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AX=OCM*T  <  I)*ULX<  ICM)-OCN*T«J  ) *ULX < IC N)*RMNX 
AV=DCM*T( II*ULY< ICM|-DCN*T C J ) *ULY (  IC Nl  *RMNY 
ARG=CSQRT (AX*AX*AV*AY) 

SUM=  SUM*  A  {  I  )  *  A  (  J  )  *CH02  <  ARG  ) 

CONTINUE 

Pl=SUN*DCM*OCN/4. 

RETURN 
DO  3  1=1  •  NGQ 
Fl=TC  II*. 5 
F2*.5-T(  I  ) 

SUM=SUM*A(I)  *(ALPHA(DCM*F1  )♦ ALPHA < DC M*F2) I 

CONTINUE 

Pl=DCM*SUM/4. 

RETURN 

END 


COMPLEX  FUNCTION  P6S < LC M.LCN  •  ISM.  ISN  ) 

COMMON  /  CUV/ULX*  60  )  • ULY (60 ). ND( S> /CK/RXM60)  .RYM60) .  DCM6  0) 
COMMON  /GGI/A<  10  >  *T<  10).  NGQ 

COMPLEX  RXK.RYK. DCK.DCM.DCN. ARG .ALPHA ,RMNX , RMNY 
COMPLEX  CH02 .CHI  2. SUM, AX. AY, CSQRT .OD.F 
IC*=LCM 
ICN=LCN 

IF(LCM.EQ.O)  ICM=ND(5»-1 
IF(LCN.EQ.O)  ICN=ND( 51—1 
SUM=0 • 

DC M=  D CK(  ICM1 

DCN=DCK(  ICNI 

DD=I SM*I SN/OCM/DCH 

IF«  ICM.EO.ICN)  GO  TO  2 

RMNX=RXK (  ICM )— RXK  < ICN» 

RMNY=RYK  < ICM  >-RYK( ICNI 

DOT=ULX(  ICM)  4ULX  <  ICN)*ULY(  IC M  )* UL  Y(  I  CN ) 

DO  1  1=1 .NGQ 

DO  1  J=1  .NGQ 

AX=DCM*T(  ( I*  ULX(  I CM) -DCN*T ( J I *ULX ( IC N1 *RMNX 
AY=0CM*T (  1 1* ULY (  ICM)-DCN*T( J |*ULY ( IC  N ) ♦RMNY 
ARG=CSQR  T  (  AX*AX*AY*AVI 

F=DQT*( I SM4T ( I )* .5 ) *< I SN*T ( J  )♦.«)  -0D 
SUM=  SUM*-  All  )  *  A(  J  )  *F*CH02 (  ARG  I 
CO NT INUE 

P6 S=  SUM*  DCM*  OCN/4 • 

RETURN 
CO  3  1=1  .NGQ 
F1=T(  11+  .5 
F2=  •  5— T(  t  I 

AX=(  <  ISM*  T<I  It.SHI  I  SN*  T  (  I  l». 5) -DO)* 

KALPHAIF  1  *DC  N  )♦  ALPHA  <F2*DC  Nl  ) 

AV=  I  SN*<  I  SM*  T  (  I  )>.5)  *(  F2 *C  HI  2  (F  2*  CCN  l-Fl *CH1 2< F 1 *DCN )  ) 

SUM=  SUM*  A  (  I  )  *  (  AX*  AY) 

CONT  INUE 
P6S=DCM*  SUM/A* 

RETURN 
END 
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COMPLEX  FUNCTION  Q5C  ICM. ICN) 

COMMON  /CUV/ULXI  60). ULY (60 ).  ND( 5) /CK/RXM60) .RVKC60) .DCKC60) 
COMMON  /GOI/A<  10)  *T<  10).NGQ 

COMPLEX  RXK . RYK.  DCK • OCM. OC  N»  DCN 1 • ARG.RMNX 
COMPLEX  RMNX I .RMNY .RMNY! 

COMPLEX  CH12.SUM.S1.S2.CSQRT.AX.AV.D0T.U 
OATA  U/C0..1.)/ 

N1  =  I  CN— I 
OCM=DCK(  ICM) 

IF(ICN.EQ.l)  N 1=  NOC  5  )—  1 
DCN1  =  OCK  (Nil 
DC N=  DCK(  ICN) 

RMNX=RXK(  ICM  )-RXK(  ICN) 

RMNXI-RXKI IC  M)—R  XKf  N 1 ) 

RMNY  =  RYK  C  ICM  )-RYK(  ICN) 

RMNY 1=RY  K( ICM)— RYKIN1 ) 

IFC ICM.NE.Nl )  GO  TO  3 
Sl=. 25 
GO  TO  5 

3  SI =0 . 

OO  *  1=1  .NGQ 

DO  4  J=1  •  NGQ 

AX=RMNX1  4TCI  ) ADC  M*UL  X (  ICM ) -T < J ) *D CN l *ULX(N 1 ) 

AY=RMNYl 4TI I  )*DCM*ULY(  ICM>— T  C  J) 4DCNI 4ULYCN1 ) 

DOT=  — ULY CNl ) 4AX4ULXC  N1 )*AY 
ARG=CSQR  T  (  AX ♦ AX4 AV*A Y) 

S1=S14A(  I )*A( J)* (T< J  )4.5)*D0T*CH12(ARG)/ARG 

4  CONTINUE 

Sl=  DCN14S1/4./U 
IF(  ICM.NE.ICN)  GC  TO  5 
S2=. 25 
GO  TO  6 

5  S2=0. 

00  7  1  =  1  .NGQ 
OO  7  J=1  .  NGQ 

AX=R  MNX+  T  < I ) 40CM*ULX ( ICM)-T<  J)*CCN*ULX( ICN) 

AV=R  MNY  4-  T  (  I)  40CM  *ULV  f  ICM)-TC  J  )  *DC  N*UL  Y<  I  CN  ) 

00 T=  — ULY < ICN  )*AX*ULX(ICN)» AY 
ARG=CSQR  T(  AX  ♦  AX«- A  Y  *  A  Y  ) 

S2  =  S2*A(  I  )*A(J)*<  — T<  J )+• 5)  *D  OT*  CH  12C  ARG)/ARG 
7  CONTINUE 

S2=  0CN4S2/4./U 

6  Q5  =  DCM4><  S1+S2) 

RE  TURN 

ENO 


COMPLEX  FUNCTION  P5IICM.ICN) 

COMMON  /CUW/ULXC  60 ) • UL Y ( 60 ) • NDC  5 ) /CK /RXK *  60 ) ,R YKC 6 0 ) . OCK < 6 0 ) 
COMMON  /GQI/AI  10  )  .T<  10)  •  NGQ 

COMPLEX  RXK. RYK, OCK. CCM.OCN. OCM 1, ARG.RMNX 
COMPLEX  RMNX 1 .RMNY , RMNY I 

COMPLEX  CHI 2 .SUM, SI. S2.CSQRT. AX .A V.DOT.U 
OATA  U/(  0. • 1 . )/ 
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Ml  =ICM-l 
DC  N=  DCK( 
IF( ICM.E 
DC  Ml  =  DOC 
DC  M=  OCK( 
RMNX=RXK 
RMNX 1=RX 
RMNY=RYtC 
RMNY l  =  RY 
IF (Ml .NE 
SI  =-.25 
GO  TO  5 
SI  =0  . 

00  4  1=  1 
00  4  J=1 
AX=R  MNX1 
AV=RMNY1 
DOT=— ULY 
ARG=CSQR 
S1=S1 *A( 
CONT INUE 
Sl=— 0CM1 
IF(  ICH.N 
S2=— .25 
GO  TO  6 
S2=0  • 

OO  7  1=1 

00  7  J-l 
AX=RMNX* 
AY=RMNY* 
DOT=-ULY 
ARG=CSQR 
S2=S  2  *A( 
CO  NT  I NUE 
S2=— DCM* 
P5=0CN*( 
RETURN 
ENO 


ICN) 

Q.l)  M1=N0(5»-1 
(Ml) 

1CM  ) 

( ICM )-RXK( ICN) 

K (Ml )-RXK( ICN) 

(  ICM  )-RYK(  ICN) 

K (M 1 )— RY  K ( ICN) 
•ICN)  GO  TO  3 


.  NGQ 

*  NGO 

♦Tl I )*DCM1*ULX(M1)-T«  J)*OCN*ULX( ICN) 

♦  Tl I  ) *0C Ml *ULV (Ml) — T ( J ) 40 CN* ULY ( ICN) 
( Ml) *AX+ULX( Ml )*AY 

T ( AX4AX+ AY4AY) 

I )*A( J)* (T( I  )+• 5 ) *  DO  T  *CH1 2( ARGI/ARG 


*  S 1/4 ./U 
E  •  ICN)  GO  TO  5 


.NGQ 

.NGQ 

T  (  I  )  #DCM*UL  X (  ICM  )  —  T(  J)*CCN*ULX<  ICN) 

T  (  I)  #DCM*ULY(  ICM  )-  T(  J)*CCN*ULY{  ICN) 

(  ICM ) *AX  +ULX  ( ICM ) *  AY 
T ( AX*AX*AY*AY) 

I )*A( J)*(-T( I )*.5) ♦DOT*  CH  12( ARGI/ARG 

S2/4./U 

S1+S2) 


COMPLEX  FUNCTION  ALPHA! Z) 

COMPLEX  CH02 .CHI  2 . Z. HO .HI  *  Z2 
Z2=Z*  Z 

HO=Z  * ( l.-Z2/S.*(  1.-22/25.4(1 .-Z 2/ 49. ) )) 

Hl=( Z  2/3 . )*(  1.— Z2/1S.*( 1 «-Z2/35.*( 1. -Z2/63. )  ) ) 
ALPHA=Z*  CH02(Z)*( 1.— HI) +Z*  CH 12(2) *H0 
RETURN 
ENO 


2.7  Subroutines  TEMAT  and  TMMAT 


These  subroutines  form  the  coefficient  matrix  and  excitation 

vectors  of  Eq.  (2-17)  for  the  TE  case  (TEMAT)  or  the  TM  case  (TMMAT). 

The  argument  parameters  are  defined  by: 

Input:  NU  =  array  containing  number  of  elements 
“^■1  -^3 

in  vectors  V  ,  V  ,  and  r)QI. 

NN  =  number  of  elements  in  coefficient 
matrix  of  (2-17). 

NEX  =  number  of  excitation  sources  to  be 
considered. 

PHI  =  excitation  array  defined  in  2.1.1. 

Output:  Y  =  array  containing  elements  of  coefficient 
matrix  of  (2-17)  stored  columnwise. 

THAT  =  excitation  matrix,  each  column  of 
which  contains  an  excitation  vector  of  (2-17). 
PIN  =  array  containing  normal  incident  power 
for  each  excitation. 

YHS  =  array  containing  elements  of  Y  stored 
columnwise. 

The  array  Y  is  initialized  to  zero.  The  elements  of  I  for  each  excita¬ 
tion  are  found  by  calling  TEEXC  for  the  TE  case  or  TMEXC  for  the  TM  case. 
The  various  submatrices  of  Eq.  (2-17)  are  created  and  stored  in  their 
appropriate  places  in  Y  by  the  following  sequence: 

Ya  DO  loop  3  and  subroutine  SYM 

YC  DO  loop  5  and  subroutine  SYM 

u\u3  Subroutine  P2Q2,  DO  loop  6. 

Yel  DO  loop  8 

i  , 

Ye3  DO  loop  9 

T6  DO  loops  10  and  11  and  subroutine  SYM 


39 


nwwxisa 


The  matrix  YC  is  stored  in  the  dummy  array  YHS  for  later  use  in  computing 

a  c 

the  transmitted  power  in  subroutine  TRANS1.  Here  the  matrices  Y  and  Y 
are  divided  into  subsections  of  equal  length.  If  it  is  desired  to  use 
subsections  of  unequal  length  on  these  aperture  faces,  DO  loops  3  and  5, 
as  well  as  the  calls  to  SYM,  must  be  changed  slightly. 


SUBROUTINE  T EMAT ( V .NU. NN . I  HA T .N EX .PH  I .PIN. YHS ) 

COMPLEX  YINNI.YDl  1 1000)  .PI  .P5.P6S  .ETK.YHSI  30  ) 

COMMON  /CUV/ULXI 60 > • ULYI 60 ) . NO I  5 ) /C/ RCXI 60  I . RC V< 60 1 •  DC! 60) 
COMMON  / CK/R XK( 6 0 )  *RYK( 60 ) .OCX (60  ) 

COMMON  /B/ETA.ETB.ETC.KA.KB. KC. MA  VNO 

COMPLEX  I HAT  1500 ) .ET A. ETB. ET C .K A. KB. KC • RXK • R YK . DCK 
01  MEN  SION  PH  I<  100).  P  IN<  100).  NU(  3) 

DO  1  1=1  *  NN 

YC I)=0. 

1  CONTINUE 
NU  1=  NU<  1  ) 

NU2=NU(  2  ) 

NU3=NU<3  ) 

ND2=  ND( 2 )— 1 
DO  2  1=1 . N02 

RXK{  I  )=R  C  X  (  I  )  AKA 
RVK(  I  )=RCY(  I  )  AKA 
OCKI I )=0 C ( I ) AKA 

2  CONTINUE 
ETK=ETA*  K  A 

CALL  TEE  XC< I  HAT*  NUl • NEX . ET A. K A.  MA  VNO .PHI. PIN .NO) 

N2=NU  1+N  U  2 
NR=N24NU3 
DO  3  I  M=  1  .  ND  2 
Y( IM)=P1  (  IM.  1  )/ETK 

3  CONTINUE 

CALL  SYM ( I.Y.1.NU1.NR. NN ) 

ND3=NC(3  ) 

ND4=NC(4 )-l 
DO  4  I=N D 2 • ND4 
RXK(  I  )=RCX(  I  )*KC 
RVK(  I  )=RCY(  I  ) *KC 
OCKI  I  )=DC(  I  )4KC 

4  CONTINUE 
ETK=ETC*KC 

KR  =  (NR  +  |  )  *NU  1 
K I  =  1 
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DO  5  IM=  N03  •  N04 

VI IM— N03 ♦1*KRI*P1 ( IM.ND3I/ETK 

VHSlKI>*VIIM-ND3*l*KRI 

Kl«K I ♦! 

CONTINUE 

CALL  SYNC  1.Y.KR41.NU2.NR.NN) 

CALL  P2Q  2  (YO  1  »NU  .NO  »  I ) 

KR=N2*NR 
K=  I 

OO  6  I  N=  1  •  HO  3 
KK=KR*(IN-1 )*NR 
OO  6  IM=  1  »N2 
V*  KK ♦  IM)  =  YDI  (K  ) 

K=K*1 

CONT INUE 

ND5=N0I5  >-l 

OO  7  1=1 • NOS 

RXKC  I  )=RCX(  I  )  +KB 

RYK(  I  )=RCY  (  I  )*KB 

OCKI  I  )=OC(  I)*K8 

CONT  INUE 

ETK=KB/ETB 

DO  8  IN-  1  •  NO  2 

K=  N2 ♦ I  IN-  1  )*KR 

OO  8  I  M=  1  •  NO  5 

YC  «♦  I  Ml=  P5<  IM.  IN)  /KB 

CONT  INUE 

KR=NU1*NR*N2 

OO  9  IN=NC3,N04 

K=  KR+  (  IN  — ND3  »*NR 

OO  9  IM=1.ND5 

Y(  I  N )=  P5 1  I  M.  INI/KB 

CONTINUE 

KR=N2 ♦! N  R  ♦  1  ) 

K=KR 

OO  II  IN=1.NC5 
OO  10  IM  = IN. NOS 

VI  K+IM)=  <  P6S  I  IM-1  .  IN-1  .1  .  I  )4-P6S  1 1  M— l  •  IN.  1. 
1 ♦ P6S (  IM.  IN-1  .-l.  1 »*P6S< IM. IN .-1  •- l) > /ETK 
CONT  I  NUE 
K=  K4  NR 
CO  NT  I  NUE 

CALL  SYM  I  2.Y  .KR*  1  .NU3.NR.NNI 
RETURN 


SUBROUTI  NE  TMMAT  <  V .NU.  NN.  I  HA  T  *NEX  .PH  I  .PIN.  YHS  > 

COMPLEX  Y(NN).YD1<1000).P1 ,QS .PCS ,VHS< 30 ) • ETK 

COMMON  /CUV/ULXI  60)»ULV( 60 ) • NO( 8) /C/RCXI60  ) • RCVC60 ). OC< 60) 

COMMON  / CK/R XK<6  0 ) »R VK ( 60) *DCK< 60 ) 

COMMON  /B/ETA.ETB.ETC.KA.KB.KC  .MAVNO 

COMPLEX  I HAT <500 ) .ETA, ETB. ETC .KA. KB. KC.RXK. RVK.OCK .SUM 
01  MENS  ION  PH  I<100).PIN<1  00  )•  NU<  3) 

OO  1  1=1  .  NN 

V< I)  =  0. 

1  CONTINUE 
NU  1=NU<  I  ) 

NU2=NU(2  ) 

NU3=NU<3  ) 

N02=NC<2 )-I 
OO  2  1=1  .  N02 
RXKC  I  )=RCX<  I  )*KA 
RYKI  I  )=RCY(  I  ) AKA 
DCKI I)=DC<I)*KA 

2  CONTINUE 
ETK=ETA*KA 

CALL  TME  XC( I  HAT • NU1.NEX.ETA. KA. HA VNO .PHI .PIN .NO) 

N2=NU1+NU2 

NR=N2*NU3 

1N=2 

DO  3  I M=  2. NO  2 

.  VI  IM-1>= (P6S(IM-1.  IN-1,  1.1  )+P6S(I M-l  .  IN.l.-l  ) 

1  +P6S  <  IM,  I  N— 1  .  —  1,1  )  *P6S  I  IM,  IN.— 1  ,-l))/ETK 

3  CONTINUE 

CALL  SYM< 1.Y.1.NU1.NR.NN) 

ND3=NCI3  > 

NO  31  =  N03  ♦  1 
NO 4=  NO  ( 4  )  - 1 
OO  4  I  =N  O  3  •  N  0  4 
RXK<  I  )=RCX<  I  )*KC 
RYKI  I  )=RCY<  I  )*KC 
OCKI  I  )=0C  (  I  )  *KC 

4  CONTINUE 
ETK=ETC4KC 
KR=INR+1 ) *NU 1 
1N=N03 1 

K I  =  1 

OO  5  IM=  N03 1 »ND4 

VI  I M— N03 i+l+KR)=(P6S(( M— 1 .  IN- 1.1.  1)+P6S(IM-1  .IN.l.-l) 
14P6SI  IM.  IN-1  .-1,  1  )*P6S<  IM,  IN  ,  —  1  .-  D)  /ETK 
YHSI K I )=  Y< IM-ND3141  +  KRI 
KI=KI*1 

5  CONTINUE 

CALL  SYM < l.Y ,KR+ 1 .NU2.NR.NN) 

CALL  P2Q  2  <  YO 1 . NU , NO . 2 ) 

KR=N2*NR 
K=  1 
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OO  6  IN* I »NU3 
KK=KR  +  (I  N-1)«NR 
DO  6  IM=I.N2 
Vf  KK+IM) =YD1 (K» 

K*K*  1 

6  CONTINUE 

NO 5= NO (5 1-1 
OO  7  1*1  •  NOS 
RXM  I  J=RCX<  I  l*KB 
RYM  I  J=RCYII  »*KB 
OCK{  I)=OC(I>«KB 

7  CONTINUE 

OO  8  IN* 2. NO 2 
K=N2*{  IN— 2  I*  NR 
OO  8  IM= 1  .NOS 
Y(K+IM»=Q5<IM.  IN) /KB 
6  CONTINUE 

KR*NU1*NR*N2 
OO  9  IN*  N03 1 • ND4 
K=KR  +  t  IN-ND31  I^NR 
OO  9  IM=  1  .NO* 

Y<  K*  I  Ml*  OS  I  I  M.  IN) /KB 

9  CONTINUE 
ETK=KB/ETB 
KR=N2* (N  fi  *11 
K-  KR 

OO  1  1  IN  — l  .NOS 
DO  10  IM  *  IN. N05 
V<K+IM)=Plf  IM.lNl/ETK 

10  CONTINUE 
K=K+NR 

1  1  CONT  I  NUE 

CALL  SYMI2.Y  .KR4-1.NU3.  NR  iNN) 

RETURN 

END 
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2.8  Subroutine  PCK 


This  subroutine  computes  the  time  average  power  flowing  through 
ri  given  by 


Ptl  "  Re 


x  H 


b* 


$  dy 


and  the  time  average  powejr  flowing  through 


Pt3  =  Re 


Eb  x  Hb* 


T3  given  by 
•  $  dy 


The  above  are  computed  by  using  the  vectors  V  ,  V  ,  and  r)  I  hence  the 

o 

Fortran  variables  PT1  and  PT3  are  defined  by 


PT1 


r)k  P  , 
o  o  tl 


PT2  =  n  k 
o  o 


P 


t3 


The  argument  parameters  are  defined  by 


Input:  X  =  array  containing  solution  vector 

of  Eq.  (2-17)  for  one  excitation. 

NU  =  array  containing  number  of  elements 
■+1  ^3  *f 

in  vectors  V  ,  V  ,  and  noI  respectively. 
ND  =  node  array  defined  in  section  2.1,1. 

ID  =  integer  variable,  ID  =  1  for  TE  case 
and  ID  =  2  for  TM  case. 


Output:  PT1  and  PT2  are  printed  out  at  execution. 


The  main  purpose  of  this  subroutine  is  to  perform  a  consistency 
check  on  the  numerical  solution.  That  is,  the  real  power  flowing  across 
each  aperture  face  should  be  the  same  if  the  material  filling  the  slit  is 
lossless.  This  computation  becomes  unreliable  in  the  TM  case  when  the 
width  of  the  slit  is  small  compared  to  a  wavelength. 
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Jlarw  . 


SUBROUTINE  PCM  X.  HU.  NO.  IO> 

COMPLEX  XI50  l.PT.CONJG 
COMMON  / C/RCXC  60  I »RC  Y! 601*  OC (60 ) 

INTEGER  NU<3 1 .ND! 5) 

- 10  -  I...  TE  CASE 

- 10  =  2...  TM  CASE 

NU  1=NUI  1  » 

NU2=NU(2  ) 

N2=NU  1+NU2 
PT=0. 

IF  I  IO.EQ.  1)  GO  TO  3 
00  1  1=1  •  NUI 

PT=PT«X(  I  1*1  OCC  I  >*CONJG<  XI  N2  ♦  I  )  )  +  0C(  I  *1  J  4C0NJG!  X<N2* 1  +1  )  )  I  /2  . 

1  CONTINUE 

PT I=— REAL IPT  I 
WRITEI3. 1001  PT1 
N3=N0<3)-1 
N2-N2  +N3 
PT =0  . 

00  2  1=1  *  NU2 

PT  —PT *X!  I *NU 1 ) *1 OC! I*N3>  *CCNJGI XI N2*  II) 
l+DCI  I  4N3  ♦  1  1 4C0NJG!  XI  N2+I  «-l  l>  >/2, 

2  CONTINUE 

PT  2=REAL  IPT) 

WRITE  13*  101)  PT2 
RETURN 

3  00  4  1=1 .NUI 

PT  =PT 4X1  1  )  *( CON J G (XI  H-N2) ) +CONJGI  XI  I ♦  N2«-l> >  ) *0CI I»/2. 

♦  CONTINUE 

PT 1=REAL ( PT I 
WR ITEI3. 1001  PT 1 
N3=N0 ( 31  —  1 
N2  =N  2  ♦  N3 
PT =0  • 

DO  5  1=1, NU2 

PT=PT  *X!  I  4NU1  )*(  CCNJG! X!  I  N2  1  >♦  CO N  JG I  X<  I  »N  24  1  1  )  1  *DC!  I*N3»/2. 

5  CO  NT  I  NUE 

PT  2=  — REA  L I  PT  1 
WRITEI3.  1011  PT2 

100  FORMAT!*  *.»PTA  =».2E17.7) 

101  FORMAT!*  • » • PTC  =*.2E17.71 

RETURN 

END 
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2.9  Subroutine  TRANS1 


This  subroutine  computes  the  transmission  coefficient  defined  by 


Eq.  (5-13)  for  each  excitation.  The  argument  parameters  are  defined  by 


Input:  YHS  =  array  containing  elements  of  Y 


stored  columnwise. 


PIN  *  array  containing  0  k  P.„  for  each 

o  o  IN 


excitation. 


PHI  =  excitation  array  defined  in 


Section  2.1.1. 


NEX  =  number  of  excitations. 


VM  =  array  containing  solution  vectors  of 
Eq.  (2-17)  for  all  excitations,  stored 


columnwise. 


ID  =  Integer  variable,  ID  =  1  for  TE 


case  and  ID  =  2  for  TM  case. 


NU  =  array  containing  number  of  elements 


-"KL  +3 

in  V  ,  V  ,  and  ri0I  respectively. 


Output:  PT  =  array  containing  time  average  power 


transmitted  through  aperture  face  times 


ri  k  for  each  excitation, 
o  o 


DO  loops  1-6  perform  the  matrix  multiplication  necessary  in  Eq.  (5-16). 


The  resulting  transmitted  power  of  the  jth  excitation  is 


PT(J)  -  nok0  PtJ 


for  j  =  1,2,...,  NEX  which  is  returned  in  array  PT  for  use  in  subroutine 


GAIN1.  The  transmission  coefficient  is  computed  by  Eq.  (5-13)  using  P. 


computed  in  subroutine  TMEXC  or  TEEXC. 


1 


SUBROUTINE  T RANS 1 f YHS • PI N. PH  I • NEX • VM • I D, PT . NU > 
COMPLEX  YHS!  301*  YAUXI30)  «VC!  30)  *VI4!1000) 

COMPLEX  CONJC.SUM.S 

DIMENSION  PHI!100)*PIN<100).PT!  IOO).NU(3) 

DATA  PI/3. 141593/ 

100  FORMAT! 'EXCITATIONS  AND  TRANSMISSION  COEFFS*') 

101  FORMAT!'  '.3E11.4) 

NT  U=  NU !  1  )4NU !2)+NU!3 ) 

NSK=NU!1  ) 

NU2=NU!2 ) 

DO  1  1=1  ,NU2 

VAUX! I  )=  2  «*CONJG !YHS!I)> 

1  CONTINUE 

WRITEI3.  100) 

DO  10  J=  1  »NE  X 

DO  3  1=1  •  NU2 

VC!I  )  =CO  N  JGI  VM<  I  -t-NSK  )  ) 

3  CONTINUE 
S=0. 

00  4  1=1  •  NU2 

S=S«- VM!  I  +NSK  )  *  VC  !  I  ) 

4  CONTINUE 
SUM=YAUX !  1  )*  S 
DO  5  L=2.NU2 
S=0. 

NL  1=NU2—  L  ♦  1 
00  6  1=1  •  NL  I 

S=S+VM!I  +NSK  )4VC!L4I-1  )4VM  INSK+L+  1-1  )*VC!  I  ) 

6  CONTINUE 

SUM=SUM*  YAUX !L)*S 

5  CONTINUE 

PT  I J )=RE AL1SUM) 

T=  PT  1  J)/  P  IN!  J) 

*RITE!3t  101  )  PHI  !2*J-1  )  #PHI!  2*J  ).  I 
NSK=NSK*NTU 
10  CONTINUE 

RETURN 
END 
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2.10  Subroutine  GAIN1 

This  subroutine  computes  a  gain  and  normalized  far  field  pattern 

/ 

from  Eqs.  (5-20)  to  (5-23).  The  argument  parameters  are  defined  by: 

Input:  XI  =  array  containing  solution  vectors 
of  (2-17)  for  each  excitation. 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

DPHI  =  increment ,  in  degrees,  at  which  field 
patterns  are  computed. 

NI  =  number  of  points  in  region  c  which  far 
field  is  computed  to  obtain  patterns. 

PT  =  k  ri  P  „  computed  for  each  excitation 
o  o  t3 

in  subroutine  TRANS1. 

ID  =  integer  option  variable,  ID  =  1  for  TE 
case  and  ID  =  2  for  TM  case. 

NEX  =  number  of  excitations. 

NU  =  array  containing  number  of  elements  in 
“^1  +3 

V  ,  V  ,  and  noI  respectively. 

Output:  The  gain  and  field  patterns  are  printed  out. 

The  field  is  computed  in  region  c  by  the  use  of  a  measurement  vector  de¬ 
fined  in  Section  5.1  of  [1].  Here  the  reference  frame  is  chosen  so  that 
the  origin  is  at  the  center  of  and  the  y  axis  is  coincident  with 

The  variable  YOC  is  the  center  of  times  k  relative  to  the  old  coordi- 

3  c 

nates  of  Fig.  1.  DO  loop  2  forms  the  measurement  vector  and  DO  loop  10 
computes  the  patterns  for  each  excitation. 
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SUBROUTI NE  GAIN1 !  XI.PH1.DPHI .NI *P T. I  0 .NEX. NU > 

COMMON  /COV/ULX!  60).ULY!60  ).  NO( S» XC/RCX! 60 ) • RCV! 60 ) • DC! 60» 
COMMON  /B/ET  A.ET 6  .ETC  »KA »KB. KC.  tM  VNO 

COMPLEX  FT (1500)  .XU  1000).  U.  CEXP.  S.S  1  .S2.CS  I  N.HN1.HN2.YOC 
COMPLEX  ETA.ETB.ETC.KA.KB.KC .0CN1  .DCN2.DCK! 30) .R YKI30 ) • CON  ST 
DI  MENS  ION  PH  I  <  10  0)  .FPC  100)  .GAtlOO  ) .P T ! 1 00) • NU! 3 ) 

DATA  PHO/-I. 570796/. U/!0..  1.  )✓ 

100  FORMAT  !  •  1  •  •  •  TE  GAIN  AND  FIELD  PATTERNS') 

101  FORMAT! • I'.'TM  GAIN  AND  FIELD  PATTERNS') 

102  FORMAT! •  '.3E11.4) 

NO  3-  N  C  !  3  ) 

ND4=ND(4  ) 

DPH=-DPH I 4PH0/90 • 

NT  U=  NU! 1  ) *NU ! 2)+NU!3 ) 

DO  1  I=ND3.N04 

RYK!  I  )=KC*RCY!  I) 

DCK!  I  )=KC*OC(  I) 

1  CONTINUE 
K-  1 

YOC=KC*I  RCVI ND3) *DC I ND3 ) /2 .4 RCY <NC4- 1 )-DC! ND4- 1 )/2. ) /2. 

N4=ND4— I O 

PH*PHO 

DO  2  1=1  .NI 

SN=S I NIP  H )  c 

CPH=  COS!  PH) 

DO  3  J=ND3.N4 
HN1=UMRVK(  J  )-VOC  ) 

HN2=U*(RYK(  JH)-VCC) 

DC  NI  =CCK  !  J  )  /  2  . 

DC  N2  =  DCK I J4 1 )/2. 

IF(IO.NE.l)  GO  TO  S 
IF1PH.EQ.0.)  GO  TC  6 

FT(K)=-DCK( J)*CEXP(HN1*SN)  *CSIN(OCNI  *SN)/(  DCN14SN) 

K=K*  l 
GO  TO  8 

6  FT  <  K ) =— O  CK ( J  ) 

K=K4-  1 

GO  TO  8 

5  IFIPH.EQ.O.)  GO  TO  7 

S1=CEXP(  HN2*  SN) *C S INIDCN24  SN ) /! CCN24SN)**2 
S2=CEXP(  HNl*SN)*CSIN!DCNl*SN)/(  CCN1*SN>**2 
FT  ( K  )  =CP  H/ C  2  .*U)  4!  DCK!  J4  1  )  *S  1— DCK  !  J)  *S2) 

K=K*1 
GO  TO  8 

7  FT!K)=-( DCK! J)40CK! J41) )/2. 

K=K4  1 
CO  NT  INUE 
CONTINUE 
PH=PH4DPH 

2  CONTINUE 
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NU2=NU<2  ) 

NSK=NU(  1  ) 

00  10  J=  1  .NEX 
K=  1 

DO  12  1=1.  N1 
S=0. 

DO  11  L=  1  •  NU  2 
S=  S*X ICN  SKH.  )*FT  C  K  ) 

K—  K+- 1 

11  CONTINUE 
F=CABSCS  > 

FPCI )=F 

GACI )=F*F/(2.*KC*ETC*PT< Jl } 

12  CONTINUE 
FM=FP< 11 

DO  13  1=2. NI 

1FCFM.LT .FPC |) )  FM=FP(I) 

13  CONTINUE 

DO  14  1=1  .NI 
FP< I 1=FPC  Il/FM 
1A  CONTINUE 

PH=— 90. 

IFCID.EQ.l)  <|RITEC3. 100) 
IFCI0.E0.2)  HRITE(3. 101) 

DO  15  I=1.NI 

MR  ITE(3*  102)  PH*  GA  (I).FP(I) 
PH—PH+DP H I 
15  CONTINUE 

NSK=NSK*NTU 
10  CONTINUE 

RETURN 
END 


2.11  Subroutine  SYM 

This  subroutine  is  used  when  only  a  portion  of  a  submatrix  of  a 
larger  matrix  Y  is  computed  and  needs  to  be  stored  appropriately  in  the 
larger  matrix.  It  is  applicable  when  the  submatrix  is  symmetric  or 
symmetric  Toeplitz.  The  matrix  Y  has  dimension  IR x  1R  and  is  stored 
columnwise.  The  argument  parameters  are  defined  by 
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N  U 


Input:  ID  =  integer  option  variable,  ID  =  1  for 
a  symmetric  Toeplitz  matrix  and  ID  =  2 
for  a  symmetric  matrix. 

Y  =  larger  matrix  stored  columnwise. 

K1  =  position  of  the  first  element  of  the 
first  column  of  the  NR  x  NR  submatrix  in  Y. 

NR  =  number  of  rows  of  submatrix. 

IR  =  number  of  rows  of  matrix  Y. 

NN  =  IR  x  ir 

If  ID  =  1,  the  first  column  of  the  submatrix  is  computed  and  stored  in  Y. 
If  ID  =  2,  the  lower  triangular  portion  of  the  submatrix  is  computed  and 
stored  in  Y.  These  operations  are  done  before  SYM  is  called.  After  call¬ 
ing  SYM,  the  array  Y  is  returned  with  the  appropriate  locations  filed  in 
utilizing  the  special  property  of  the  submatrix. 


SUBROUTINE  S VM ( I  0 • Y, K I . NR.  IR . NN  ) 
COMPLEX  Y ( NN ) 

IF i  IC.NE  •  1  )  GO  TC  5 
00  2  J=2  *  NR 
K=KI  ♦  (  J-  1  )*I  fi 
DO  1  1=2,  J 

Y<K»  =  Y(K  1  ♦  1  ♦  J—  I  > 

K=K  +  1 

1  CONTINUE 

JN=NR-J«-  1 
DO  3  1=1  ,  JN 

YIK»=YIK  I  ♦  I—  1  > 

K=K+  1 
CONTINUE 
CO  NT  INUE 
RETURN 
5  L1=K  1 

DO  6  J=2  .  NR 
L2=L I ♦ IR 
JN=NR-J*  I 
DO  7  1=1  ,  JN 

Y(L2)=Y<  L  l  +  l  » 

L2=L  2  ♦  IR 
7  CO  NT  I  NUE 

L 1  =L  1  ♦  IR  ♦  I 
6  CONTINUE 

RETURN 
END 
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2.12  Subroutines  DECOMP  and  SOLVE 

These  subroutines  are  used  to  solve  a  system  of  N  linear  equations 
in  N  unknowns,  specifically  Eq.  (2-17).  The  input  to  DECOMP  consists  of 
N,  NN  =  N*N,  and  the  matrix  of  coefficients  stored  columnwise  in  UL. 

The  output  from  DECOMP  is  IPS  and  UL  which  is  used  by  SOLVE.  The  rest  of 
the  input  to  SOLVE  consists  of  N  and  the  excitation  vector  stored  in  B. 
SOLVE  returns  the  solution  vector  in  X  and  must  be  called  for  every  exci¬ 
tation.  More  detail  concerning  DECOMP  and  SOLVE  may  be  found  on  pages 
46-49  of  [4]. 


SUBROUTINE  DECOMP  I N, NN. I  PS .UL > 

COMPLEX  UL(NN) .PIVOT  *EM 
DIMENSION  SCLI 50 >• IPS! SO) 

DO  5  1=1  .  N 

IPS!  I  >=I 
RN=0  . 

J1  =  I 

DO  2  J=i .N 

UL M=  ABSI  REAL (ULI J1  )  )  )  +  ABS(  AI MAGIULI J 1 ) ) > 

J1=J 1*N 

IF(RN-ULM)  1.2.2 

1  RN=ULM 

2  CONTINUE 
SCLI  1 1=1  ./RN 

5  CONTINUE 
NM  1=  N  —  1 
K2=0 

DO  17  K=i.NM! 

81  G=0  . 

DO  11  1=  K  »  N 
IP=IPS(I  ) 

1PK=  IP-MC2 

SI  ZE=  I  ABSI  REAL*  ULC  IPK)  )  )  *-ABS  I  AI  MAGIULI  IPK1  )  )  l*SCL(  IP  I 
IF  (SIZE- BIG)  11.11.10 

10  6 1  G=  S  I ZE 
IPV=  1 

11  CONTINUE 
IF(IPV-K)  14.15.14 

14  U=IPSIK) 
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IPS<KI=IPS(I  PV I 
IPSf  IPV)=J 

15  KPP=  IPS!  K1«X2 
PIVOT=UL<KPP> 

KP  1=  K  ♦  1 

DO  16  I*  KP 1  •  N 
KP*KPP 
IP=IPS<1  1 4K2 
EM*-ULI  IP) /P  IVOT 
18  UL  1 1  P  >=-  EM 

OO  16  J=  KP1  •  N 

IP=IP*N 

KP=KP*N 

UL(IP)=UL(IP  )  4EM4ULI  KP 1 

16  CONTINUE 
K2=K2*N 

17  CONTINUE 
RETURN 
END 


SUBROUTINE  SOLVE  <N«NN»IPS*  UL  •  B«  XI 
COMPLEX  UHNN»,B(NI.X(N)  .SUM 
DIMENSION  IPS«50) 

NP1=N*1 
IP=IPS( 1 1 

x<  u=eii  p» 

DO  2  1=2  •  N 
IP=IPS( I  1 
IPB=  IP 
IMt=  1-1 
SUM=  0  • 

DO  1  J=1  •  IM1 

SUM=SUM+UL<  IP)*X(J) 

1  IP=IP*N 

2  XC  I)=BII  PB1-SUM 
K2=N*  (  N-  1  > 

IP  =  I  PS  (  N  I  *K2 
X<  N)=X(N ) /UL ( IP) 

DO  4  I BA  C  K=2  *  N 
1=  NP1-IBACK 
K2=K  2-N 
IPI=  IPS(  I  >  *X2 
IPl=I  +  l 
SUM=  0  • 

IP=1PI 

DO  3  J=I  P  1  •  N 
IP=IP*N 

3  SUM=  SUM*-  UL  (  I  P I  *X  <  J  ) 

4  XI  I)  =  <XI  I  )— SUM )/UL I  I P I  ) 

RETURN 

END 
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2.13  Subroutine  SOLN 


This  subroutine  forms  the  system  of  Eqs.  (2-17)  for  the  TE  or 

"^1  ->3 

TM  case  and  solves  for  the  unknown  vectors  V  ,  V  ,  and  ri  I  for  each 

o 

excitation.  The  argument  parameters  are  defined  by: 

Input:  IJ  =  integer  option  variable,  IJ  =  1 
for  TE  case  and  IJ  =  2  for  TM  case. 

IJOB  =  integer  option  array  defined  in 
Section  2.1.1. 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

ND  =  Nodal  array  defined  in  Section  2.1.1. 

NEX  =  number  of  excitations  to  be  considered. 

NI  =  number  of  points  in  region  c  at  which 
far  field  is  to  be  evaluated  to  obtain  a 
pattern. 

DPHI  =  increment,  in  degrees,  at  which  gain 
pattern  is  computed. 

Output:  The  magnetic  and  electric  currents  are  printed 
out  as  well  as  the  transmission  coefficient, 
gain  pattern,  and  normalized  field  pattern  if 
desired.  This  is  done  for  each  excitation. 

The  entire  coefficient  matrix  of  Eq.  (2-17)  is  stored  in  array  Y  by  columns 
The  elements  of  the  vector  I*,  are  stored  in  array  IX  for  each  excitation. 
Each  right  hand  side  vector  of  (2-17)  is  formed  in  array  X,  the  non-zero 
elements  of  which  are  selected  from  IX.  The  number  of  unknowns  is  dif¬ 
ferent  for  each  polarization  and  are  stored  in  array  NU  as 
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NU(1)  =  number  of  elements  in  V 

->3 

NU(2)  =  number  of  elements  in  V 

— ► 

NU(3)  =  number  of  elements  in  r|  I 

o 

Subroutine  SOLVE  is  called  for  each  excitation  and  the  solution  vector  is 
returned  in  array  ANS.  The  magnetic  and  electric  currents  are  then  printed 
out  if  desired.  The  transmission  coefficient  is  computed  by  TRANS1  and  the 
gain  and  normalized  field  patterns  are  computed  by  GAIN1.  Also  PCK  is 
called  for  each  excitation  to  compute  the  time  average  power  across  and^ 
r3  which  serves  as  a  consistency  check  on  the  numerical  solution  when 
applicable. 


SUBROUTI NE  SOLN<  I J » I  JOB, PH  I , NO • NE X ,N I ,DPHl ) 

COMPLEX  YC2500).  IX(SOO).  AN  S(  50).X(50  ) . YHSC 30 ) . VM( 1 00 0 ) 
INTEGER  I  JOB (6).  I  PS < 50 > . NU < 3 ) . N C(  5 ) 

01  MENS  ION  PH  I  (10  0). PIN!  100  1.  PTC  10  0) 

NU<  1  )=ND  (  2  )—  I J 

NU  (  2  ) -NO  (4)-ND(3)-lJM 

NU ( 3 ) =ND ( 5  )—  1 

NT  U=  N  U  ( 1  )+NU(2)+NU(3) 

NN=NTU*N  TU 

IF(IJ.EO.l)  CALL  TEM AT ( Y.NU. NN.  IX  »NE  X .PHI .PI N.YHS) 
IFOJ.EO.2)  CALL  TMM  AT  (  Y  .  N  U.  NN.  IX  .NE  X  .PH  I  •  P  I  N  ,  YHS) 

CALL  DEC  OMP( NTU. NN.IPS.Y ) 

NU  1=  NU(  l  > 

NU  2=  N  U(  2  )  ♦  NU  1 
N1=NUU1 
N2=NU2+1 
K  I  =  1 

00  1  J=1  .NEX 

DO  2  1  =  1  .  NU1 
X(  I)=IX(  (  J-l  ) *NU  1*1) 

2  CONTINUE 

DO  3  I=N  1  .  NT  U 

x(  n  =  o. 

3  CONTINUE 

CALL  SOL  VE(NTU.NN. IPS.Y. X. AN  S ) 
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' 0  N 


IFC I JOBC 41.NE.1)  GO  TO  7 
IF(IJ.EQ.l)  WRITEI3. 101 ) 

IF  I  I  J .EQ •  2  )  WR1TEI3. 102) 

IFIPHII2* J-l  l.EQ.O.)  WRITE (3 • 104)  PHI(2*J) 

IFIPHII2* J-l ).NE.O. )  WRI TE (3*103)  PH  I <  2* J— I  I .PHI I 2*J ) 

WRITE 13. 1051 

IFIIJ.EQ.l)  WRITE  (3*1 07  ) 

IFUJ.EQ.2)  WRIT  EI3.  108) 

K=  I J 

DO  4  1=1  •  NU1 

CM=C  ASSt  ANSI  I ) ) 

WRITE (3* 100 )  K.ANSID.CM 
K=K+  1 

4  CONTINUE 
K=NDI  3H-  I  J-l 
00  5  I=N  1 .  NU  2 
CM=C  ABSt  ANSI  ID 
WRITEI3.  1001  K# ANSI  I  )  .  CM 
K=K«-l 

5  CONTINUE 
WRITEI3, 106) 

K=  1 

IFIIJ.EQ.l)  WRITEI3.108) 

1FIIJ.EQ.2)  WRITEI3.107) 

DO  6  I=N  2  •  NTU 
CM=C ABSt  ANSI  1 ) ) 

WRITEI3,  100)  K* ANSI  I ) .CM 
K=K*1 
CO NT INUE 
CONTINUE 
00  8  1=1 .NTU 

VM  (K  I  )=A  N S I  I  ) 

KI=Kl*l 
8  CONTINUE 

CALL.  PCX!  ANS.NU.NO,  I  J) 

1  CONTINUE 

IF! I  JOB!  5I.EC.1)  CALL  TRAN  SI IYHS.PIN  .PHI .  NE  X »  VM» IJ  »3T  »NU ) 

107  FORMAT!*-*. ‘SEGMENT  NO. •  .7 X. ? RE AL  •  • 1 3X • • 1M AG • • • 1 2X • *  MAG. • » 

108  FORMAT! * - • , • NOOE  NO. * . 1 OX.  *R E AL *.  13X .  •  IMAG • •  • 1 2X , * MA G . • I 
RETURN 

END 
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Chapter  3 


PROGRAM  II  -  MODAL  SOLUTION 

The  purpose  of  this  computer  program  is  to  analyze  the  transmission 
properties  of  a  filled  slit  whose  cross  section  may  be  viewed  as  a  chain 
of  two-dimensional  rectangular  regions  as  treated  in  [1,  Chapter  6]. 
Descriptions  of  how  to  use  the  program  and  set  up  the  required  data  cards 
are  presented  first  followed  by  detailed  descriptions  of  all  the  subroutines. 

3.1.1  Required  Input  Data  and  Main  Program  Description 

The  input  data  required  by  the  user  is  read  in  the  main  program 
from  a  sequence  of  data  cards  according  to  the  format  statements: 

100  FORMAT (6E11. 4) 

101  FORMAT (815) 

102  FORMAT (2E20. 7) 

The  sequence  of  data  cards  is  arranged  as  shown  in  Table  4.  The  variables 
NGQ,  A,  T,  IJOB,  and  PHI  are  defined  in  Section  2.1.1.  The  coordinates 
used  to  specify  the  excitation  are  shown  in  Fig.  1.  For  simplicity,  the 
material  filling  the  slit  is  assumed  to  be  homogeneous  and  lossy  if  desired. 
The  two  half  space  regions  are  assumed  loss-free.  Thus  the  electrical 
properties  are  given  by 

NMUA,  NEPSA  =  y  /y  ,  £  /e 

a  o  a  o 

NMUB,  NEPSB  =  y,  /y  ,  e./c 

bo  bo 

NMUC,  NEPSC  =  y  /y  ,  e  /e 

CO  CO 

where  NMUB  and  NEPSB  are  specified  by  a  complex  number  x-jy  for  x  and  y 


Table  4.  Arrangement  of  data  cards  for  Program  II.  N1  =  NEX  +  NGQ  +  1 


Data  Card 
Number 

Format 

Number 

Information  to  be  Typed  on  Card 

1 

101 

NGQ 

2 

102 

A(l) ,  T (1) 

1  +  NGQ 

102 

A (NGQ),  T(NGQ) 

2  +  NGQ 

101 

IJ0B(1) ,  IJ0B(2) , . . . ,  IJ0B(6) 

3  +  NGQ 

100 

PHI (1) ,  PHI (2) 

•  • 

1  +  N1 

100 

•  • 

PHI (2*NEX-1) ,  PHI (2*NEX) 

2  +  N1 

100 

NMUA,  NEPSA 

3  +  N1 

100 

NMUB,  NEPSB 

4  +  N1 

100 

NMUC,  NEPSC 

5  +  N1 

100 

FMC ,  DPHI 

6  +  N1 

101 

NB,  NI 

7  +  N1 

100 

W(l),  W(2) , . . . ,  W(NB+1) 

8  +  N1 

100 

H(l) ,  H(2) , . . . ,  H(NB) 

9  +  N1 

100 

D(l) ,  D (2) , . . . ,  D(NB) 

10  +  N1 

100 

YL(1)  ,  YL(2) . YL (NB) 

11  +  N1 

100 

YR(1) ,  YR(2) , . . . ,  YR(NB) 

12  +  N1 

101 

N(l) ,  N(2) , . . . ,  N(NB+1) 

13  +  N1 

101 

NT (1) ,  NT (2) , . . . ,  NT(NB) 

non-negative  real  numbers.  FMC,  DPHI,  and  NI  are  the  same  as  in  Sec¬ 
tion  2.1.1.  The  rest  of  the  variables  are  defined  by: 

NB  =  number  of  rectangular  regions 
comprising  slit  cross  section. 

W  =  array  containing  w^,  q  =  1,2,...,  NB+1 

H  =  array  containing  h^,  q  =  1,2,...,  NB 

D  =  array  containing  d^,  q  =  1,2,...,  NB 
YL  =  array  containing  y^,  q  =  1,2,...,  NB 
YR  =  array  containing  Y  ,  Q  =  1,2,...,  NB 

N  =  array  containing  numbers  N^  of  subsec¬ 
tions  into  which  each  aperture  is 
divided,  q  =  1,2,...,  NB+1 

NT  =  array  containing  numbers  which  equal 
the  maximum  number  of  waveguide  modes 
used  to  compute  the  fields  in  each  rec¬ 
tangular  region. 

All  lengths  are  in  meters  where  a  typical  rectangular  sub-region 
is  shown  in  Fig.  4. 

If  region  b  is  lossy,  the  skin  depth  in  meters  and  the  conductivity  in 
siemens/meter  is  computed  and  printed  out.  DO  loop  1  multiplies  all 
dimensions  by  k^,  the  wavelength  of  free  space.  The  upper  triangular  por¬ 
tion  of  the  matrix  of  coefficients  in  Eq.  (6-8)  and  the  elements  of  I*  are 
formed  by  calling  subroutine  MAT.  The  result  is  returned  to  the  main  program  in 
arrays  Y  and  XI  respectively,  stored  columnwise.  The  symmetric  system  of 
equations  is  solved  by  calling  subroutine  GELS.  The  transmission  coefficient 
is  computed  in  subroutine  TRANS2  and  the  gain  and  normalized  field  patterns 
are  computed  in  GAIN2 . 
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3.1.2  Listing  of  Main  Program  and  Sample  Output 


C 

- THICK  SLIT  PROGRAM  TWO... 

MCCAL  SOLUTION  FOR  MULTIPLE  REGION  FILLED  SLIT 
IN  A  GRCUNO  PLANE  OF  FINITE  THICKNESS 

COMPLEX  Yl4000).XII5000> .YHSC140) 

COMPLEX  CSQRT .ET  ANB , NMUB , NE“ S 6 . kA  VNB 
COMPLEX  YHS< 401 . XZ140) .VZ( 40 ) ,C 1 

Dt  MENS  ION  PHI  ( 10  0). PIN! 1 00  >.  I  JOB! C) . NU< 10) .PT{ 100) 

REAL  NMUA.NMWC.NEPSA.NEPSC 
COMMON  /  G  ®  1/  A  I  10). T<  10).  NG  C 

COMMON  /E/E TANA. E T ANB. ET ANC. WAVNA .«A  VNB. WA YNC. kAVNO 
COMMON  /8/Wt  10).  HI  10). YL 110)  .YRIlC).CCllO).OtlO).NllO ) .NT!  10)  ,NB 
DATA  FI/3. 141553/ 

FORMAT (6E11.4) 

FORM  AT ( 3  15) 

FORMATI2E20.7) 

RE  AD 11.101)  NGQ 

READ!  1.1 02)1  At  I) ,T< I ). 1=1 .NGQ) 

WRITEI3.  101 )  NGQ 

WRITE (3.  102) I A( I  )  .T< I) ,1  =  1  ,NGC) 

- 1  JCB(  l  )  =  1.. .  TE  CASE 

C  I JCBI  2)  =  1...TM  CASE 

C  I JCBI 3)  =  NC.  CF  EXCITATIONS 

C  IJC8I4)  =  1.. .PRINT  OUT  CURRENTS 

C  I JCBI  5  )  =  1...CCMF.  TRANSMISSION  CCEFFS. 

C  I JCBI  6)  =  1...CCMP.  GAIN  ANC  F  I  EL  C  PATTERNS 

READ  I  1,1  01)1  I  JCBI  I).  1  =  1, 6) 

NEX=  I  JOB  1  3  ) 

WR  ITE  I  3.  101 )  I  I  JOB1 I )  .1  =  1 .6  ) 

K=  1 

CO  3  1  =  1  «  NE  X 

RE  AD  11.10  0)  PHIt K) .PHI IK  +  1  ) 

WRITEI3, 100)  PHI  IK  ).PHUK+  1) 

K  =  KH2 

3  CONTINUE 

RE  AD  11,100)  NMUA.NEPSA 

C  THE  MATERIAL  FILLING  THE  SLIT  IS  ASSUMED  HOMOGENEOUS 

RE  AD  11.10  0)  NMUB . NEP  SB 
READ! 1.1 00)  NMUC.NEPSC 
READ!  1,1 00)  FMC.OFHI 
READ1  1.10  1)  NP.N I 
NBl=Ne*l 

READ1  1  ,1 00)1 WI I ) • 7=1 .NQ1  ) 

RE  ADI  1,1 0  0 ) I  HI  I )• 1  =  1 ,NB) 

RE ADI  1  .1  00  It  Cl  I  ).  1=1 »NB ) 

RE  ADI  1,1  0  0 )!  YL I  I  )  .1  =  1 . NB) 

RE  ADI  1  .1  0  0  )t  YRI I  )  .  1=1, NB ) 

READ! 1 ,1  01 )t  NI l ) . 1  =  1 .NB1 ) 

READ!  1,101)1  NT II).I=1.NB) 


C 

C 

c 


100 

101 

1  02 
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WA  V  N  0  —  P I 4FMC/150 • 

MA  VNA  =  SQRT 1NMUA4NEPSA I 
WA  VN0  =  CS  QRT ( NMUB4NEPSB) 

WAVNC  =  SQRT 1NMUC4NEPSC) 

ET  ANA=SQRT 1NNUA/NEPSA) 

ET  ANB=CS QRT ! NMUB/NEPSB) 

ET ANC=SQRT!NMUC/NEPSC> 

IF  (A  I  MAG  1  NEP  SB  >  .  EQ .0  •  )  GO  TO  2 
SI  G=— FMC  *  A IN  AG! NEP SB )/.  I BE  5 
SKD=-1./1  WAVN04A  IMAGI  WAVNS  )) 


WRITE13, 

21S)  SIG 

WRITE13. 

216)  SKO 

2 

CONTINUE 

200 

FORMAT!  • 

1 • .1 SX.* THICK  SUIT  PARAMETERS... *1 

203 

FORMAT! • 

-*.15X. 'REGION  PARAMETERS  NORMALIZED 

1 IX . ' FREE 

SPACE*  ) 

204 

FORMAT! • 

-•  .15X, ‘REGION  A*. 14X.* REGION  C*.14X 

206 

FORMAT!  • 

-  * • *  FERN  EABILTTY  * . 3X.E11.4.11X.E11.4 

207 

FORMAT!  • 

-*. 'PERMITTIVITY* .3X.EI 1. 4.1  1X.E11 .4 

208 

FO RMAT!* 

-*.*  IMPEDANCE*  .6X. El  1.4,1  IX, Ell. 4.  11 

209 

FORMAT!* 

-• ,*  XAVE NUMBER* .5X.E 1 1.4.  1 IX , El  1.4, 1 

210 

FORMAT! • 

-*.1SX.*NC.  OF  RECTANGULAR  REGIONS  = 

211 

FORMAT!  • 

-• ,15X, 'REGION  B  INDEX',12) 

212 

FORMAT!* 

•  ,2  OX  ,  •  W  =•  ,EU.4,5X.*N  =*,I5) 

213 

FORMAT!* 

• *20X,*H  =• .El  1 ,4.5X.*0  =*.E11.4) 

214 

FORMAT! • 

• , 2 OX , • YL  =* .El  1.4, 4X. *YR  -••E11.4. 

21  5 

FORMAT! • 

-•••CONDUCTIVITY  OF  REGION  B  -*.E11. 

216 

FORMAT!* 

-•••SKIN  DEPTH  OF  REGION  E  =*.E11.4. 

XRITE13. 

200) 

XR  I T  E  !  3. 

210)  NB 

00  6  1-1 

.NB 

HR ITE (3. 

211)  I 

XR  ITE  13. 

212)  W(I).N!I) 

XRITE13. 

213)  HI  I  )  .0!  I  ) 

XR ITE 13. 

2  14)  YL!  I ) .VR1 I ) ,NT1  I  ) 

6 

CO NT INUE 

XR ITE 1 3. 

211)  NB1 

HR  IT  E  (  3. 

212)  W1NB1 ).N!NB1 ) 

XRITE13, 

203) 

XRITE13. 

204) 

XR ITE  !  3. 

206)  NMUA.NMUC .NMU8 

XR ITE (3, 

207)  NEPSA.NEPSC .NEP  SB 

HR  ITE  ! 3. 

208)  ETANA.ETANC.ETANe 

XRITE13. 

209)  X A VNA , WAVNC .WAVNG 

CO  1  1=1 

♦  NB 

W!  I  )  -  W<  l 

) 4  WA  VNO 

H!  I  )  —  H!  I 

)  *  WA  V  N  0 

OC!  I  »*X! 

I >/N!I) 

01  I)  sCU 

) * WA VNO 

YL  1  I  )  =  YL 

1  1)4  WA VN  0 

YR1I  )=YR 

!  I)*  WA  VN  0 

1 

CO  NT INUE 

W!  NO  1  )=W 

!  NB  1  )  4  x  A  V  NO 

OC ( NB  1  )  = 

W! NB 1 )/N !  NB  1  ) 

IF  (  I  JCB! 

D.NE.l)  GC  TO  10 

BY  THOSE  OF*. 

• 'REGIONS* I 

•  1 1X.2E1  1.4) 

•  UX.2E1 i.4| 
X.2E11.4) 
1X.2EU.4) 
••IS) 


5  X • • NT  =  •  .15) 

4. 2X,*  MHOS/METER* ) 
2X. 'METERS* ) 
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C - COMPUTE  MATRIX  FOR  TE  CASE..  .1  JOB  !  1  )  =  1 

CALL  MAT1Y.NR.1.XI.YHSC.NEX.PHI .NU.P IN) 

107  FORMAT! • — • • 1 X • *POS • • • 6X. 'REAL •• 13 X. • I MAG* • 13X. *MAG*I 
HRsNK* !NR  + 1 ) /2 
CALL  GELSIXI  .Y.NR.NEX.MR) 

IFlIJCfl! 4).NE.l)  GC  TO  8 

105  FORMAT!  .10X.*  APERTURE  FACE*.  15  »3X  •*•••*»/✓ ) 

104  FORMAT!*  *.I5.4E17.7) 

103  FORMAT!* 1 *.1EX, • TE  MAGNETIC  CURRENTS  FOR  PHI  =*.2E11.4) 


K=  1 
KC=1 

CO  7  J=1  »  NEX 

WRITE  !  3*  103)  PHI ! KC ) *PHI !KC+ 1 ) 

WRITEI3.  107) 

CO  4  1=1  .  N81 

WRITEI3.  1051  I 
N1=NU(  I) 

CO  4  II=1.N1 

VA=CA  ESI  X  I!K  )  ) 

MRITEI3. 104)  1 1 • X  I ! K ) «  VA 

K=  K-f  1 

4  CONTINUE 

KC=K  C  4  2 

7  CONTINUE 

8  CONTINUE 

C - CCMP.  TE  TRANS.  COEFFS.  ANC  CAIN  PATTERNS 

IFIIJOE!  5).EQ.l)  CALL  TRAN  S2  I  YH SC  .PI  N  .PHI  .NE X  .  X I  .  1  .P T  ) 
IF!  I  3QB!  6  )  .EQ.  1 )  CALL  G  A I N2!  X  I  •  PH  I  .OPHI  .  NI  .  PT  •  1  •  NEX) 

10  IF ! I  JOB!  21.NE.1)  GC  TO  20 

C - COMPUTE  MATRIX  FOR  TM  C  AS  E  .  •  .  I  JOB  !  21  =  1 

CALL  MAT  (Y.NR.2.XI  »  YHSC  »NE  X  »  PHI  .NU.PIN) 

MR  =NR*!NR4l) /2 

CALL  GELSIXI. Y.NR.NEX.MR) 

IF ( I  JOB!  4).NE.l)  GO  TO  9 

303  FORMAT! • 1 *•• TM  MAGNETIC  CURRENTS  FOR  PHI  =*.2E11.4) 

K=  1 
KC=1 

CO  17  J=  1  .  NE  X 

MRITE13. 303)  PHI IKC) .PHI IKC+ 1 ) 

MR  ITE13.  107) 

CO  14  1=  1  .  NB  1 

MR  ITE13.  105)  I 
Nl  =NU  (  I) 

CO  14  11=1. Nl 
VA=CAES<  X  I!K  )  ) 

MRITEI3.  104)11. XIOO.VA 
K=K*1 

14  CONTINUE 

KC=KC42 
17  CONTINUE 

9  CONTINUE 

C - CCMP.  TM  TRANS  COEFFS.  ANO  GAIN  PATTERNS 

IF!I JOB!  5).EQ.l)  CALL  TRANS2 ! YHSC .PI N .PH I .NEX • X I . 2. PT ) 
(FI  I  JOB!  6). EG.  1)  CALL  GA  I N  2!  X  I  .  PH  I  .OPHI  .  NI  •  PT  .  2  •  NE  X  > 

20  CONTINUE 

STOP 
ENO 
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Table  5.  Arrangement  of  data  cards  to  produce  sample  output  in 
Program  II.  $  signs  are  in  column  one. 


SDATA 

4 

.  17  292  74E  0 
.  17  292  74E  0 
•3260725E  0 
•3260725E  0 


1 

1 

2 

0.E  0 

0.E  0 

0.E  0 

45. E 

l.E  0 

l.E 

1  •£  0 

O.E  0 

1  •£  0 

l.E  0 

300.E 

0 

2.E  l 

2 

91 

•  499E 

0 

•  2E  1 

•  499E 

0 

•  2E  i 

•  IE  0 

•  IE  0 

0.E  0 

O.E  0 

•  IE  0 

O.E  0 

5 

4 

4 

SO 

50 

*ST  OP 

// 


“•4  3056  62E  0 

•  43  0S682E  0 
-.I699905E  0 

•  169990  EE  0 
1  I  1 


1  .E  0  0.E  0 


.  2E  0 


Sample  output  is  presented  for  the  slit  in  Fig.  1  where  the 
data  cards  are  shown  in  Table  5.  Only  the  4>  * =  0  results  are  shown 
The  dimension  w^  =  h^  =  0.499  is  used  here  instead  of  0.5  as  indi¬ 
cated  from  Fig.  1  to  avoid  numerical  problems  arising  from  the  reso¬ 
nant  dimensions  of  rectangular  region  bl. 


6 


1 


PER  ME  A  Q I L  I  TV 

PERMITTIVITY 

impedance 

mavenu mber 


0.1739274E  00 
0.1739274E  00 
0.326072SE  CO 
0.3260725E  00 
112  1 
O.OOOOE  00  O.OOOOE  OC 
O.OOOOE  00  0.45C0E  02 


-0.4305te2E  00 
0.430EE62E  00 
-0.1699905E  00 
0.169950SE  00 
1 


THICK  SLIT  PARAMETERS... 


NO.  OF  RECTANGULAR  REGIONS  =  2 

REGION  8  INDEX  1 

V  =  C.4990E  CO 

N  =  E 

F  =  0.4990E  00 

D  =  0.1000E  00 

YL  =  O.COOOE  00 

YR  =  C.  10  COE  00 

NT  = 

50 

REGION  S 

INDEX  2 

w  = 

C.2CCCE  00 

N  = 

4 

H  = 

0.2000E  00 

D  = 

O.IOOOE  00 

YL  = 

O.COOOE  00 

YR  = 

O.COOOE  00 

NT  = 

SO 

REGION  8  INDEX  3 

W  =  C.2C00E  CO 

N  = 

4 

REGION  PARAMETERS  NORMALIZED  eY  THOSE  OF  FREE  SPACE 


EGICN  A 

REGION  C 

REG  I ONS 

0.1 OCOE 

Cl 

0. 1 00  OE 

Cl 

O.IOOOE 

01 

O.OOOOE 

00 

0.10  COE 

C  1 

O.IOOOE 

Cl 

0. 1 OOOE 

01 

0. OOOOE 

00 

0.1 OCOE 

Cl 

0. 1 00  OE 

Cl 

O.IOOOE 

01 

O.OOOOE 

00 

0.1 OCOE 

C  1 

0.1  OOOE 

Cl 

O.IOOOE 

01 

0. OOOOE 

00 

MA¬ 


TE  MAGNETIC  CURRENTS  FOR  PHI  =  C.OOOOE  00  O.OOOOE  00 


POS. 

REAL 

I  HA  G 

MAG 

APERTURE  FACE 

1  •  •• 

1 

0 .980965  SE 

00 

0.5196729E 

00 

0.111 0132E 

01 

2 

0. 605629 OE 

00 

0.4234206E 

00 

0.739 1304E 

00 

3 

0.6  06754SE 

00 

0.4619265E 

00 

0.764 172 7E 

00 

4 

0.519321 OE 

00 

0 .6850150E 

00 

0.8S96160E 

00 

5 

0. 6455284E 

00 

0.671 44 15E 

00 

0.121 421 9E 

01 

APERTURE 

FACE 

2  ... 

1 

0.4  04809  OE 

00 

-0.1018196E 

01 

0.109S716E 

01 

2 

0. 179628SE 

CO 

-0.7224S78E 

00 

0.7 44  4  56  4  E 

00 

3 

0.1511 654E 

CO 

-0 .7370691E 

00 

0.7524107E 

00 

4 

0.225697SE 

CO 

—0 • 1 206456E 

01 

0.1227386E 

01 

APERTURE 

FACE 

3  ... 

1 

—  0.647539  IE 

00 

-0.1721290E 

01 

0.1 #3906  IE 

01 

2 

-0.335841 7E 

00 

—  0 .116  4394E 

01 

0.1  tl  1859E 

01 

3 

—0. 3503965E 

00 

—0 . 1 1 79538E 

01 

0.123  048  2 E 

01 

4 

— 0.6894223E 

00 

-0.1768S72E 

01 

0.1  09  £  19  6  E 

01 

EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.5564E  00 


i  000 OE  00 

0.4500E 

<7* 

* 

• 

O 

CM 

O 

S2E  CO 

GAIN  ANO  FIELO  PATTERNS 

-0.9000E 

02 

0.91S7E 

00 

0.9234E 

00 

—  0 • 880  OE 

02 

C .9 199E 

00 

0.9235E 

OC 

— 0.8600E 

02 

0.9204E 

00 

0 • 9238  E 

00 

-0.8400E 

02 

0.9213E 

00 

0.9242E 

00 

-0.8200E 

02 

0.922EE 

00 

0.9248E 

00 

-0.8000E 

02 

0.9242E 

00 

0.9256E 

CO 

-0.7800E 

02 

0.9  26  IE 

00 

0.9266  E 

00 

—0 . 760  OE 

02 

G.9284E 

00 

0.9277E 

00 

-0.7400E 

02 

0.931  OE 

00 

0.9290E 

00 

-0.7200E 

02 

C.9329E 

00 

0.9305E 

00 

— 0.7000E 

02 

C.9371E 

00 

0.9321 E 

00 

-0.6800E 

02 

0.9406E 

00 

0.9338E 

00 

-0.6600E 

02 

0.9444E 

00 

0.9357E 

00 

-0.6400E 

02 

C.94E4E 

00 

0.9377E 

00 

-0 • 6  2  0  OE 

02 

0.9527E 

00 

0.939SE 

00 

-0.6000E 

02 

C.9S72E 

00 

0. 94  20  E 

00 
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0.5800E 

02 

0.9619E 

00 

0.9443E 

00 

0.5600E 

02 

C .96686 

00 

C.9467E 

00 

0.5400E 

02 

0.971SE 

00 

0.9492E 

00 

0.5200E 

02 

0.9770E 

00 

0.9517E 

00 

0.5000E 

02 

0.9823E 

00 

0.9543E 

00 

0.4800E 

02 

0.9677E 

00 

0.9S69E 

00 

0 .46  0  OE 

02 

0.9931E 

00 

0.95966 

00 

0.4400E 

02 

0.9986E 

00 

0.9622E 

00 

0.4200E 

02 

0.1 0  C4E 

01 

0. 9649  E 

00 

0.4000E 

02 

C.l  010E 

01 

0.9675E 

OC 

0.3800E 

02 

0.1  OISE 

01 

0.  97  01  E 

00 

0.3600E 

02 

0.1 020E 

01 

0.9727E 

00 

0.3400E 

02 

0.1 026E 

01 

0. 9752  E 

00 

0 .32006 

02 

0.1 031E 

01 

C.9777E 

00 

0.3000E 

02 

0.1 036E 

01 

C • 9800  E 

00 

0.2800E 

02 

0.1 0 4  IE 

01 

0.9823E 

OC 

0.2600E 

02 

0.1  04SE 

01 

0. 9845  E 

00 

0.2400E 

02 

0.1  OSOE 

01 

0.9866E 

00 

0.220 OE 

02 

0.1  0E4E 

01 

0.98866 

00 

0.2000E 

02 

C.l  0S8E 

01 

C.9904E 

00 

0.1800E 

02 

0.1 062E 

01 

0.9921 E 

00 

0.1600E 

02 

o.i oesE 

01 

C.9937E 

OC 

0.I400E 

02 

0.1 068E 

01 

0.9951 E 

00 

0.1200E 

02 

0.1  0  7  IE 

01 

0. 9963  E 

OC 

O.IOOOE 

02 

0.1 073E 

01 

0.9973E 

00 

0 .8000E 

01 

0.1 07SE 

01 

0.9982E 

OC 

0.6000E 

01 

0.1 076E 

01 

0. 9990  E 

00 

0.4000E 

01 

C.l  0  78E 

01 

0.9995E 

OC 

0 .2000E 

01 

0.1 078E 

01 

0 • 9998  E 

00 

0  .OOOOE 

00 

C.l 079E 

01 

C. 1000E 

01 

0.2000E 

01 

0.1 079E 

01 

0. 1000E 

01 

0 • 40  OOE 

01 

C.l  0  78E 

01 

0 . 9998  E 

00 

0 • 6  0  0  OE 

01 

C.l 077E 

01 

0. 9994  E 

00 

0.8000E 

01 

C.l  0  76E 

01 

0.9988E 

00 

O.IOOOE 

02 

0.1  0  74E 

01 

0.9981 E 

00 

0.1  2  OOE 

02 

C.l 072E 

01 

0.9971 E 

00 

0.1400E 

02 

C.l 0  7  OE 

01 

0.9960  E 

00 

0.1600E 

02 

0.1 067E 

01 

C. 9948  E 

00 

0.1 8  OOE 

02 

0.1 064E 

01 

0.9934  E 

00 

0  .2000E 

02 

C.l 06  IE 

01 

C.9918E 

00 

0.2200E 

02 

C.l 0E7E 

01 

C. 9901 E 

00 

0.2400E 

02 

C.l 053E 

01 

0.9883E 

OC 

0 • 26  OOE 

02 

C.l 049E 

01 

0. 9863  E 

00 

0.2800E 

02 

0.1 045E 

01 

0. 9843  E 

00 

0  •  3000E 

02 

0.1  0  4  OE 

01 

0. 9821 E 

00 

0.3200E 

02 

0.1  036E 

01 

0.9798E 

00 

0.3400E 

02 

0.1  03  IE 

01 

0.97  75  E 

OC 

0 .36006 

02 

C.l  0 26E 

01 

C. 9751 E 

CC 

0.3600E 

02 

0.1  0  2  OE 

01 

0.9726E 

00 

0 .4  OOOE 

02 

C.l 015E 

01 

C. 97  01 E 

00 

0 .42006 

02 

0.1  010E 

01 

0.9676E 

00 

0 .4400E 

02 

C.l  0  04E 

01 

0.96S0E 

CO 

0 • 46  OOE 

02 

C.9992E 

00 

0.9625E 

00 

0.4800E 

02 

C.9939E 

00 

0.9599E 

00 

O.SOOOE 

02 

C.9ee7E 

00 

0.95  74  E 

00 
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0.5200E 

02 

C*9e3SE 

00 

0.9549E 

00 

0.S400E 

02 

0.978SE 

00 

0.9525E 

00 

0.5600E 

02 

0.9736E 

00 

0*9501  E 

00 

0.S800E 

02 

0.9688E 

00 

0.9477E 

00 

0.6000E 

02 

C.9643E 

00 

0.9455E 

00 

0.6200E 

02 

0.9599E 

00 

0*94 34E 

00 

0.6A00E 

02 

C.95S7E 

00 

0.9413E 

00 

0.6600E 

02 

C.95I8E 

00 

0*9394  E 

00 

0.6800E 

02 

C.948IE 

00 

0.9375E 

00 

0.7000E 

02 

C.9447E 

00 

0*  9359  E 

00 

0.7200E 

02 

C.941SE 

OC 

0.9343E 

00 

0.7400E 

02 

C.9387E 

00 

0.9329E 

00 

0.7600E 

02 

C.936  IE 

00 

0.9316E 

00 

0.7800E 

02 

C.9339E 

00 

0.9305E 

00 

0 . 80  00E 

02 

0.9320E 

00 

0.9296E 

00 

0.8200E 

02 

0.9305E 

00 

0.9288E 

00 

0.8400E 

02 

C.9292E 

00 

0.9282E 

00 

0.8600E 

02 

C  *9  2  64E 

00 

0.9277E 

00 

0.8800E 

02 

0.9278E 

00 

0.9275E 

OC 

0.9000E 

02 

C.9277E 

00 

0*  9274  E 

00 

TM  MAGNETIC  CURRENTS  FOR  PHI  =  0.0000E  00  O.OOCOE  00 


s. 

REAL 

IMAG 

MAG 

APERTURE  FACE 

I  ... 

I 

-0.3786073E 

CO 

—  0  •  1 068S42E 

01 

0.1 133633E 

01 

2 

—  0*4921 36  IE 

00 

-0 .1327325E 

01 

0.141 562 3 E 

01 

3 

-0.456158  IE 

CO 

— 0 •  123321 IE 

01 

0.131 487  2E 

01 

4 

-0*  3424406E 

CO 

-0  .9786S75F 

00 

0.1 03C839E 

01 

APERTURE 

FACE 

a  ... 

1 

-0. 1652C62E 

CO 

-0 .4473922E 

00 

0.4769409E 

00 

2 

-0* 1963732E 

CO 

-0 .527S222E 

00 

0.5  62  E87  3E 

00 

3 

-0.1 783C29E 

00 

-0 .47923 10E 

00 

0.511 226  OE 

00 

APERTURE  FACE  3 


1 

— 0.5145471E— 01 

-0.11491 46E 

00 

0*1  859085  E 

00 

2 

— 0*6691 80 2E— 01 

-0 . 1537E55E 

00 

0.16  7686  5E 

00 

3 

-0.520521  IE- 0 1 

-0 .1  163712E 

00 

0.1 27 482  IE 

00 
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EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  0*000 OE  00  0.1369E-02 
O.OOOOE  00  0.4500E  OS  0.S987E-03 


TM  6AIN  ANC  FIELD  PATTERNS 


-0.90006 

02 

0.1  661E- 

12 

0.3022E- 

06 

-o.aeooE 

02 

C.2301E- 

02 

0.3360E- 

01 

-0.8600E 

02 

0.9 193E- 

02 

0.6716E— 

01 

-0*84006 

02 

0.2065E- 

01 

0.10076 

00 

—  0  *82006 

02 

0.36646- 

01 

0. 1341 E 

00 

-0*80006 

02 

0.57C8E- 

01 

0.1674E 

00 

-0.78006 

02 

0.8191E- 

01 

C.2005E 

oc 

-0.76006 

02 

0.1  1 10E 

00 

0.2334E 

00 

-0.7400E 

02 

0.1 443E 

00 

0.2661 E 

00 

-0  *72006 

02 

0.1 ei7E 

00 

0.2986  E 

00 

-0  .7000E 

02 

C.2229E 

00 

0.3307E 

00 

-0.68006 

02 

C .2  6  796 

00 

0.3626E 

00 

-0.66006 

02 

0.3 164E 

00 

0.3940E 

oc 

-0.64006 

02 

0.36636 

00 

0.4251 6 

CO 

—  0  *62006 

02 

0.4233E 

00 

0.45586 

CO 

-0  .60006 

02 

0.4ei3E 

00 

0.4859E 

00 

-0.58006 

02 

0.54196 

00 

0.S156E 

00 

—0 .56006 

02 

Q.6049E 

00 

0.S448E 

00 

-0.54006 

02 

C .6 7  COE 

00 

0.5734E 

00 

-0 .5200E 

02 

Q.7369E 

00 

0.60 1 3  E 

00 

-0.50006 

02 

0.80646 

00 

0.6286E 

00 

— 0.4800E 

02 

0.875  OE 

00 

0.6552  E 

00 

-0 .46006 

02 

C.9456E 

00 

0.681 1 E 

00 

-0  .44006 

02 

0.1 0176 

01 

0.70636 

00 

-0  .42006 

02 

0.1  oe8E 

01 

0. 7306E 

00 

-0.4000E 

02 

0.1 159E 

01 

0.7541 E 

00 

-0  .38006 

02 

0.1  2306 

01 

0.77686 

00 

-0.36006 

02 

0.1 299E 

01 

C.7985E 

00 

-0  .3400E 

02 

0.1 3686 

01 

0.81936 

oc 

-0 .3200E 

02 

0.1 435E 

01 

0.8391 6 

00 

-0  .30006 

02 

C.l 5C0E 

01 

0.85796 

00 

-0.28006 

02 

C.l 563E 

01 

0.8756E 

CO 

— 0 .26006 

02 

0.1 6236 

01 

0.8923E 

00 

— 0 .24006 

02 

0.1  6e0E 

01 

0.9078E 

00 

-0  .22006 

02 

0.1 7346 

01 

C. 92236 

oc 

-0.20006 

02 

0.1 7e4E 

01 

0.9355E 

CO 

-0.1800E 

02 

0.1  8  3  OE 

01 

0.9476E 

00 

-0 .16006 

02 

0.1 e72E 

01 

0.95856 

00 

-0.I400E 

02 

0.1 9  10E 

01 

0.9682E 

00 

-0.1200E 

02 

0.1 944E 

01 

0.9766E 

00 

—  0 .10006 

02 

C.l 972E 

01 

C.9837E 

00 

-0.60006 

01 

C.l 996E 

01 

0.9895E 

oc 

-0 .6000E 

01 

0.2  0 14E 

01 

0.9941 E 

00 

-0.40006 

01 

C.2027E 

01 

0. 9974  E 

00 

—  0 .20006 

01 

C. 20356 

01 

0.9993E 

00 

0.00006 

00 

C.2038E 

01 

C.1000E 

01 

0  .20006 

01 

C.2  035E 

01 

0.9993E 

oc 

0.40006 

01 

0.2  027E 

01 

0.9974E 

00 

0.60006 

01 

0.20  14E 

01 

C. 9941 E 

00 

o.boooe 

01 

0.1 996E 

01 

0.9895E 

00 

O.IOOOE 

02 

0.1 9 72E 

01 

0.9837E 

00 

0.1200E 

02 

0.1 944E 

01 

0.9765E 

00 

0.1400E 

02 

C.l 910E 

01 

C. 9681 E 

00 

0.16006 

02 

0.1 872E 

01 

0.9585E 

00 

0.1800E 

02 

0.1 830E 

01 

0.94766 

00 

0.2000E 

02 

0.1 784E 

01 

0.9355E 

00 

0.2200E 

02 

0.1 723E 

01 

0.9222E 

00 

0.2400E 

02 

o.i eeoE 

01 

0.9078E 

00 

0.2600E 

02 

C.l 622E 

01 

0.8922E 

00 

0.2800E 

02 

0.1 S62E 

01 

0.8756E 

00 

0-3000E 

02 

C.l 5C0E 

01 

0.8578E 

00 

0.3200E 

02 

0.1425E 

01 

0.8390E 

00 

0.34006 

02 

0.1 36eE 

01 

0.8192E 

00 

0.3600E 

02 

C.l 299E 

01 

0.79846 

00 

0 .3800E 

02 

C.l 2306 

01 

0.7767E 

OC 

0.4000E 

02 

C.l 169E 

01 

0.7541 E 

00 

0.42006 

02 

0.1 0686 

01 

C.730QE 

00 

0.4400E 

02 

C.l  0 17E 

01 

0.7062E 

00 

0.4600E 

02 

C.94S4E 

00 

0.68116 

OC 

0.4800E 

02 

C.8749E 

00 

0.6552E 

00 

0.50006 

02 

0.80526 

00 

0.62866 

OC 

0.5200E 

02 

C.7268E 

00 

0.6013E 

00 

0  #  540  OE 

02 

C  .6  6  9  6E 

00 

0.57336 

OC 

0 .56006 

02 

C.6  047E 

00 

0.5447E 

00 

0.58006 

02 

C.5418E 

00 

0.51S6E 

CO 

0 .60006 

02 

C.4812E 

00 

0.48596 

00 

0.62006 

02 

0.4233E 

00 

0.4557E 

OC 

0 .64006 

02 

C.3682E 

00 

0.4251 E 

00 

0.6600E 

02 

0.3 164E 

00 

0.3940E 

OC 

0.6800E 

02 

0.26786 

00 

0.36256 

OC 

0  •  7000E 

02 

C. 22296 

00 

C.3307E 

00 

0.72006 

02 

C.l 8  166 

00 

0.29856 

00 

0.74006 

02 

C.l 4436 

00 

0.2661 E 

00 

0.7600E 

02 

C.l 1 10E 

00 

0.2334  E 

00 

0.78006 

02 

C .8 169E- 

01 

0.2004E 

00 

0.80006 

02 

0.5706E- 

01 

0. 1673E 

00 

0.82006 

02 

C.3662E- 

01 

0.1341E 

00 

0.84006 

02 

C.2065E- 

01 

0.10066 

00 

0.86006 

02 

C. 9 1696- 

02 

0.67156- 

01 

0.88006 

02 

C. 22996- 

02 

0.33596- 

01 

0.9000E 

02 

C.l 6C6E- 

09 

0.8878E- 

05 

3.1.3  Minimum  Storage  Requirements  for  Arrays 

The  minimum  storage  required  for  each  array  used  in  Program  II  is 
given  here.  Arrays  which  are  execution-time  dimensioned  are  not  men¬ 
tioned  (i.e.,  array  Y  in  subroutine  YHSTM) .  Integers  which  are  used  to 
specify  the  array  sizes  are  defined  by: 

NR  =  total  number  of  unknown  coefficients 
in  Eq.  (6-8) . 

NEX  =  number  of  excitations. 

NU(i)  =  number  of  unknown  magnetic  current 
expansion  functions  existing  on 

aperture  face 

NB  =  number  of  rectangular  sub-regions  by 
which  region  b  is  approximated. 

NU  =  max  NU(i) 

max 

1  <  i  £  NB+1 

NT  =  max  NT (i) 

max 

1  £  i  £  NB 

NGQ  =  order  of  Gaussian  quadrature  formulas 
used  for  numerical  integration. 

NI  =  number  of  points  in  region  c  at  which 
far  field  must  be  evaluated  to  obtain 
gain  pattern. 

The  allocations  required  for  the  arrays  in  common  blocks,  which  appear  in 
several  program  segments,  are  given  by: 

GQI:  DIMENSION  A (NGQ) ,  T(NGQ) 

B:  DIMENSION  W(NB+1),  H(NB) ,  YL(NB) ,  YR(NB) ,  DC(NB+1), 
D(NB) ,  N (NB+1) ,  NT (NB) 
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The  allocations  required  for  arrays  used  in  the  subroutines  are: 


MAIN  PGM: 


MAT: 


YB1  and 
YB2 : 

EXTE2  and 
EXTM2 : 


TRANS2 : 


GAIN2 : 


GELS: 


COMPLEX  Y (NR* (NR+1) /2) ,  XI(NR*NEX), 

YHSC (NU (NB+1) ) ,  YHS(NU(NB+1)), 

XZ(NU(1)),  YZ(NU(1)) 

DIMENSION  PHI (2*NEX) ,  PIN(NEX),  IJ0B(6), 
NU (NB+1) ,  PT(NEX) 

COMPLEX  Y(NR*(NR+l)/2),  YD1(NU  *NU  ), 

max  max 

YD2(NU  *NU  ),  XI (NR*NEX) , 
max  max  • 

YHSA(NU(1)),  YHSC (NU (NB+1)),  WK(NB+1), 
HK(NB) ,  YLK(NB) ,  YRK(NB) ,  DCK(NB+1), 
DK(NB) 

DIMENSION  NU (NB+1) ,  MU(NB+1) 

PHI (2*NEX) ,  PIN (NEX)  ' 

COMPLEX  Y (NU  *NU  ) ,  ST (NT  ) 
max  max  max 

COMPLEX  XI (NR*NEX) 

DIMENSION  PHI (2*NEX) ,  PIN (NEX) 

COMPLEX  YHS (NU(NB+1)) ,  YAUX (NU (NB+1 ) ) , 

VC (NU (NB+1)),  VM (NR*NEX) 

DIMENSION  PHI (2*NEX) ,  PIN (NEX) , 

PT (NEX) 

COMPLEX  XI (NR*NEX) 

DIMENSION  PHI (2*NEX) ,  FP(NI), 

FT(NI) ,  GA(NI) ,  PT (NEX) 

COMPLEX  R(NR*NEX) ,  AUX(NR*(NR+l)/2) 
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3.2  Function  Subprograms  HANK02  and  HANK12 

These  function  subprograms  return  the  Hankel  functions  of  the 
second  kind,  orders  zero  and  one,  for  a  real  argument  as 
HANK02 (x)  =  Hq2)(x) 

HANK12 (x)  =  H^2)(x) 

The  polynomial  approximations  of  Abramowitz  and  Stegun  [2,  9.4.1  - 
9.4.6]  are  used. 


COMPLEX  FUNCTION  HANK 02 (  X  ) 

COMPLEX  U/I0..1.I/ 

FORMAT!*  WARNING - ARGUMENT  OF  HAN  K  0  2  =*.E17.7) 

1F(X.LE.O.O)WRITE(3.10)X 

es jo=  i.o 

IFIX.EC.O.)  CC  TC  2 
2  =  AQ SIX) 

IF(Z.GT. 3.0)00  TC  1 
Y=Z*Z/9. 0 

es  J0=  1  .0  AY* <  -2. 2 49 99 97 AY* C  1.  265  62  084-  V  ♦  (-0. 3  1  63  e66AY*  (  0. 044 44 79 AY *< 
l -0. 00294 44AY40. 00021)1))) 

GO  TO  2 
3  .  /  2 

F0  =  .  7 9 78  34  56*  W*(  -  .000000  77  AM*  <-  .0  C55  2 74* <** (  -  .0000951  24#*  (  *  001 
1  37  23  7  AW*  I-.0C072E0SA**.OO014476  )>  )  )  ) 

P0-=  .765398164**1  . C4 1 663974 **  (  .0  CO  C39  5  4  +  W*<  -  .  0026  25  73  AM*  <  .0005 
141254**1 .00029332-**  .000135S6  )  > I) ) 
es J0  =  F0*  CCSC  2-P0 ) /SORT  (  Z  ) 

CO  NT  I  NUE 
ESV0=-1. OE  75 
IFIX.EO.O.)  CO  TO  3 
IFI2.GT.3.)  CC  TO  4 

BSYO=C.63661977*ALCG(O»5*Z)*0SJO  A 0 .367466 9 1 4Y*t 0. 605593 66 A Y*I -0 

1.7435C3844Y*<C.2£3C011?4Y*<-0.042612144Y*(0. 0042 79 16- Y* 0 .0 00 24846) 
2)1)1 
GO  TO  3 
CONT 1 NUE 

ESY0=F0*  S  INC  Z-PO  )  /  SORT <  2 ) 

CONT I NUE 

HANK  02=BSJ0— U*BSVC 

RETURN 

END 
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COMPLEX  FUNCTION  HANK  1 2 (  X) 

COMPLEX  U/40..1.)/ 

100  FORMAT! WARN ING - ARGUMENT  OF  HAN K 1 2  =*.E17.7) 

IF ( X . LE. 0 . )  WRITE13.100)  X 

ES Jl=C.O 

IF  !  X . EQ. 0. )  GC  TO  2 
2=A6S  (X) 

IF4Z.GT.3.0)  GC  TO  1 
Y=Z*2/9  .0 

BSJ1=X*! O.SAYA  1—0.56249985 A-VA  40 • 2 1 C93573+Y * C -0 .039 54289* V* ( 0 .0 0*43 
121  9aYA!- 0.00 031761AY *0.0  00  01  1091)  )))  i 
GC  TO  2 
1  #=3./2 

Fl= .79  7e84564W*4.00000l56A  «♦  4.0  1659667AM*!  .0001 7 10 5 A** 4- .0024 
195  11 ***!  .001  1 3653—  W*  .000  20 03  3  i  ) >)  ) 

P1=.7£539E16***!-.  1 249961 2 AW *  4- .0  0005650AW*!  .0 0637879  AW* 4- .00 
1  07434  6AW  *  4  —  »  00079624  AW*. 00029166)  ) )  )  > 

BS J  1=F  1*SIMZ-P1  1/SQRT1Z  ) 

IF(>.LT.O.O)eSjl=-8SJl 
2  CONTINUE 

BSY1=- 1 .0E75 

IF( X.EC.O. 1  GO  TO  3 

IF ( 2.GT.2. )  GO  TO  4 

8SY  1=1  -C.62661977*Y*10 .221  209 1* Y*4  2 .1682 70 9  AY* C— 1.3 16482 7AY 440.312 
1 39  51 a  Y*1 -C.0400976AY*0.0027872)  >1)1) /ZAO. 6366 1 977* ALOG4  0 .5 *Z ) *BS J1 
GC  TO  2 

4  BSY  i=-F 1*CCS42-P1 I/SQRT4  Z> 

3  CONTINUE 

HANK 12=BS J1-U*BSV1 
RETURN 
ENC 


3.3  Subroutines  EXTE2  and  EXTM2 

The  subroutines  compute  the  excitation  vector  for  the  right  hand 
side  of  Eq.  (6-8)  for  the  TE  case  (EXTE2)  or  the  TM  case  (EXTM2) .  This 
is  done  for  each  excitation  source  desired  for  a  given  slit  problem  and 
the  result  is  stored  in  array  XI.  The  argument  parameters  are  defined 
by 

Input:  N  =  number  of  magnetic  current  expan¬ 
sion  functions  on  aperture  face  r  . 

NEX  =  number  of  excitations. 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

DCK  « 
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k  *DC (1)  =  k  W./N. 
a  all 


WA  =  k  *W(1) 
a 

eta  =  n  /n 

a  o 

KA  =  k  /k 
a  o 

NR  =  total  number  of  unknown  coefficients 
in  Eq.  (6-8) . 

WAVNO  =  k 

o 

Output:  XI  =  array  containing  all  of  the  exci¬ 
tation  vectors  (right  hand  sides) 
of  Eq.  (6-8). 

PIN(j)  =  ri^k^  times  the  time  average  power 
incident  upon  aperture  face  when 
the  jth  source  is  normally  incident. 

The  possible  excitations  here  consist  of  a  plane  wave  incident  at  an 

angle  (j)'*'  measured  with  respect  to  the  negative  x  axis  and  a  line  source 

placed  at  coordinates  (x  ,  y  )  in  region  a.  The  coordinates  of  Fig.  1 

s  s 

are  used  where  xg  <  0  and  -90°  £  i})*'  £  90°  .  These  subroutines  are  simply 
specializations  of  TMEXC  and  TEEXC  in  Section  2.4  where  Eq.  (6-15)  is 
computed  for  the  TE  case  (EXTE2  using  Eq.  (6-28))  and  for  the  TM  case 
(EXTM2  using  Eq.  (6-40)).  The  normal  incident  time  average  power,  PIN, 
is  computed  for  each  excitation  and  is  the  same  as  in  Section  2.4. 


SUBROUTI NE  EXTM2IXI.N.NEX. PHI .DCK  . WA . ET A .KA , NR .P IN, W A VNO ) 
COMPLEX  X  I<5000)  »li  »CEXP  •  HA  NK  0  2  *  HA  NKl  2  ,FE  .  SUM  1  .  SUM2 
COXMCN  /GQI/M  101, T(  10).NGG 
Cl  MENS  ION  PHMIOO).PIN(IOO) 

REAL  KA 

CATA  FI/3. 141593/. U/<0..1. )/ 

C2-DCK/2  . 

WA2=«A/2  . 

K=  1 

KC=1 

NP1-N41 
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CO  1  J=1 .NEX 

IF  (PHMK  1  .NE.O.  )  CO  TO  10 
IF(PHI(K*1).EQ.0.1  GO  TO  4 
CPHI =C0S  ( PHI  (K*l  MPI/180.) 

SPHI  =  S  IN  ( PHI (K41 ) ♦PI/180.) 

FE=-0CK*CPHI#(SlN(SPHI*D2)/(  SPH14C2)  )  ♦•2/C  ET  A4KA  ) 
CO  2  1=1  •  N 

XI (KC  1=2 • *FE  ACEXP (U* (I40CK -W  A  2  ) 4SPHI  1 
KC=KC ♦ 1 

2  CONTINUE 
GO  TO  5 

4  CO  3  1=1  •  N 

XI (KC  )=- 2 .*0CK/( ETA4KA J 
KC=KC ♦ 1 

3  CONTINUE 

5  PIN(  J)=WA/(ETA*KA) 

GO  TO  11 
10  CONTINUE 

XS=W  A  VNO  *K A*  FH I ( K 1 
VS=*A VNO ♦  K A4  FH I ( K  ♦  1 ) 

XS2=XS*X  S 

RS=SQRT(  X S2*  (  WA2- VS  1 4*2  ) 

FE  =  HANK0 2  (RS  1 
CO  7  1  =  1  ,l( 

SUM 1  =  C • 

SUM2= 0 • 

CO  8  L=1 • NGQ 

ARG1  =  SQRT(XS2*(DCK*(T(LI  4-I-.S  )-YS  )♦* 2 1 
ARC  l  =  SOR T( XS2*(OCK*( T(L1 ♦! ♦. S  )-VS  )♦♦ 2 1 
SUM1  =  SUM  1  ♦  A  (  L  )*(T(t_)+.5)  *HAN  K  12  (  A  RG 1  )/ARGl 
SUM2=  SUM  2 ♦ A( L !♦( . 5-T (L ) 1 *H ANK 12 (ARG2  1/ARG2 
8  CONT  1  NUE 

XI (KC )  =  2 • ♦ XSAOCK  * ( SUM 1 ♦SUM2 ) /(ETA ♦KA*U*FEI 
KC=KC ♦ 1 

7  CONTINUE 

THET=2.* ATAN(*A2/RS) 

PIN( J  )=2.tTHET/(PI*ETA*KA*CABS(FE 1**2  I 
It  CO  6  I=NP1.NR 

XI (KC  1=0 . 

KC=KC ♦ 1 

6  CONTINUE 

K=K4-2 

1  CONTINUE 

RETURN 
ENC 
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SUER OUT I NE  E XTE2 < X 1 • N .NEX. PH  I .OCK «*A  •  ETA .KA  •  NR  «P  IN. « A VNO ) 
COMPLEX  X  I (5000) «U .HANK02 • HA NK1 2 • EE. SUM.CEXP 
COMMON  /GCI/A<  10).T<  10).NG0 
DIMENSION  PHHIOO).PIN(IOO) 

RE  AC  KA 

DATA  PI/3.141 593 / , U/( 0  .  •  1  •  )/ 

C2-0CK/2  . 

VA2=MA/2  . 

K=  1 

KC  =  l 

NP1=N41 

CO  1  J=1  *  NEX 

IF(RHKK)  .NE  .0  •  )  GO  TO  10 
IF(PHI(K41).EG.O.)  GO  TO  4 
SPHI=SIN  (PHI  (K41  )  API  / 180  ii  ) 

PE=OCK*S IN(SPH(4D2)/( SPH l *  02  *ET A4  K  A  ) 

CO  2  1=1  *  N 

XI (KC >=2 .4FE4CEXP(U*(( I-.5  >4  0CK-W A2) ASPHI ) 

KC=KC ♦ 1 

2  CONTINUE 

GO  TO  5 

4  CO  3  1  =  1  .N 

XI  (KC )=2 . *0C K/(ETA*KA ) 

KC=KC  4 1 
CO NT INUE 

P I  N(  J  )=•  A  /  (E  T  A*KA  ) 

GO  TO  11 

10  CONTINUE 

X S=  W A  VNO 4KA4PHII K ) 

YS  =  WAVN3  *  K A4FHI ( K  4 1 ) 

XS2=XSAX  S 

RS=SORT( XS24IMA2-YS) 4*2) 

FE=HANKI 2(RS ) 

CO  7  1=1  *  N 

SUM=0  . 

CO  8  L  =  1  •  NGQ 

ARG=  SORT (XS24((T(L)4I— .5 1*0C  K— VS) 4*2) 

SUM=  SUM4-  A (L ) 4HANK02I ARG) 

8  CONTINUE 

XI (KC  1=2 . 4U*CCK4SUM/<ETA*KA*FE) 

KC=KC  4 1 

7  CONTINUE 

THET=2.4ATAN( MA2/RS ) 

PIN( J  )=2 .4THET/(PI*ETA4KA*CAeS(FE  )**2  ) 

11  CO  6  I=NP1.NR 
XI (KC  >=0  . 

KC=KC  41 

6  CO  NT  I  NUE 

K=K4  2 

1  CONTINUE 

RETURN 
ENO 
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3.4  Function  Subprograms  I4MN  and  ALPHA 


ALPHA  is  the  same  as  that  described  in  Section  2.6  except  that 
the  argument  is  now  real.  I4MN  is  used  to  compute  the  half  space  ad¬ 
mittance  matrix  for  the  TM  case  and  is  a  specialization  of  Eq.  (6-31). 
The  argument  parameters  are  defined  by 

DCK  =  y  =  electrical  length  of 
subsection  A  . 

q 

ICM  =  subscript  m. 

ICN  =  subscript  n 
ISM  =  integer  p 
ISN  =  integer  q 


'COMPLEX  FUNCTION  I4MNI DCK. IC M . I CN . I S M» I SN) 

COMMON  /G6I/AI  IOI.TI  10I.NGC 
COMPLEX  HANK02.HANK12.SUM*  ALPHA  .A  X.A Y 
CD= l S  MAI  SN/OCK/OCK 
SUM-0  . 

IF(ICN.EC.ICN)  GC  TO  2 
RMN=I  ICM—  I  CN  )  ADCK 
CO  1  1=1  « NGQ 

CO  1  J=1 .NGQ 

ARG=AES(  CCKATI I ) -CCK AT ( J ) ARMN  ) 

F=  I  I  SKAT  I  I)+.S)A(  ISNATI J)+.5)-DC 
SU  M=  SUM*  A ( I >  A  A ( J )AF  AHANK02 (ARC) 

1  CONTINUE 
I4MN=SUM ACCKADCK/2. 

RETURN 

2  CO  3  1=1 .NGQ 

F  1  =  T  I  !)♦.« 

F2=.S-TI  I  ) 

AX*C  (  ISM  ATI  I  )A.S) A( I SNATI I  >♦ .5)-0C)A ( ALPHA I F 1 AOCKI ♦ ALPHA <F 2AOCKJ  » 
AY=I SNA(  ISM AT (  I > ♦.S>  AIF2AHANK  12 (F  2 AD C K ) -F 1  AH ANK  1  21 F 1 AOCK )) 
<UN=SUN+A<  I)  A<  AX  A  AY) 

3  CONTINUE 

I4MN=  DC  K  A  SU  M/2* 

RETURN 

ENC 
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COMPLEX  FUNCTION  ALPHA! Z  ) 

COMPLEX  HANK 02  »HANK  12 
Z2«Z*Z 

H0  =  Z*<  W-Z2/9.M  1.-Z2/25.A41 .-Zt/49. ))) 

Hl=< Z2/3 . >*C 1.-Z2/15.M 1 .-Z2/25.* < 1.-Z2/63. ) ) ) 
ALPHA  =  Z*  HANK  02( Z  )  *(  1 •— HI  ) ♦ Z* HANK 1 2 CZ I *HO 
RETURN 
END 


3.5  Subroutines  YHSTE  and  YHSTM 


These  subroutines  compute  the  first  column  of  the  symmetric 
Toeplitz  half  space  admittance  matrices  whose  elements  are  given  by 
Eq.  (6-17)  for  the  TE  case  and  Eq.  (6-30)  for  the  TM  case.  The  argu¬ 


ment  parameters  are  defined  by 


Input:  N  =  number  of  expansion  functions 

on  aperture  face  adjacent  to  a  half 
space  region. 


DCK 


subsection  length  of  aperture 


face,  A  ,  multiplied  by  wavenumber  of 
half  space. 


WAV  =  wavenumber  of  half  space  divided 
by  wavenumber  of  free  space. 

ET  =  impedance  of  half  space  divided  by 
impedance  of  free  space. 

Output:  Y  =  first  column  of  symmetric  Toeplitz 
admittance  matrix. 
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SUBROUTINE  VMSTE I Y.N.DCK .« AV . ET ) 

COMMON  /  6QI/  AI  10 ) . T (  101*  NGQ 
COMPLEX  ALPHA  .HANK02 •¥<  N| » SUM 
C0NST=1. /<2.*WAV*ET) 

SUM=0  •  ■ 

HsOCK/2* 

CO  I  1=1 .NGQ 

SUH=SUM*  A(  IM<ALPHA(H-T<  I)  4DCK )« ALPHA C  H*T<  I  )  4DCK  It 
CO  NT  INUE 

Y(  1 I  =  CCK ♦SUM  4C0N  ST 
CO  3  IR=  2  »N 
SUM=0. 

CO  2  1=1  .NGQ 

CO  2  J=1  .NGQ 

SUM=  S UM4-  A  (  I  )  #A(  J  1*HANK02<  ABS  ICCK*  (T(  I  )-T(  J  )  +  1-  IR  )  >  ) 
CONTINUE 

YI IR)=DCK*DCK*SUM*CCNST 

CONTINUE 

PE  TUP  N 

ENO 


SUBROUTINE  YHSTM  (  Y  «  N . DCK .  W  AV  .  ET  ) 

COMPLEX  Y(N).I4MN 
CO  1  1=1  .N 

Yf  I )= I4M  N{ OC  K • 1 •  I . 1 •  1 »♦ I 4MN< DCK  .1  .  1+1,1.- 1) 
1 41 4MNIDCK  ,2. I .-1 . 1 )♦  I4MNIDCK .2.I+J.-1.-1) 

Y< I)=V<I )/(E1*tfAV) 

CONTINUE 

RETURN 

ENC 
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3.6  Subroutine  MAT 


This  subroutine  forms  the  upper  right  triangle  of  the  matrix 

of  coefficients  in  Eq.  (6-8)  and  the  vectors  of  the  right  hand  side 

by  calling  EXTE2  or  EXTM2.  The  argument  parameters  are  defined  by 

Input:  ID  =  integer  option  variable,  ID  =  1 
for  TE  case  and  ID  =  2  for  TM  case. 

NEX  =  number  of  excitations. 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

Output:  Y  =  upper  right  triangle  of  coefficient 
matrix  in  Eq.  (6-8),  stored  columnwise. 

NR  =  total  number  of  unknowns  or  rank  of 
matrix  in  Eq.  (6-8). 

XI  =  excitation  vectors  computed 
in  EXTE2  or  EXTM2 . 

YHSC  =  first  column  of  matrix  [YC] . 

NU  =  integer  array,  the  qth  element  of 
which  equals  the  number  of  magnetic 
current  expansion  functions  on  T  . 

PIN(j)  =  konoPiN  computed  in  EXTE2 
or  EXTM2  for  the  jth  excitation. 

The  number  of  unknowns  for  vectors  V^,  , . . .  etc.  are  computed  in  DO 

loop  2  and  stored  in  array  NU.  NR  is  the  number  of  rows  in  the  complete 
system  of  equations  to  be  solved.  MU  is  an  integer  array  used  as  an  in¬ 
dex  along  the  diagonal  of  the  coefficient  matrix.  It  is  computed  by 

MU  (q)  =  7  (J  N  )(  ?  N  +  1) 

Z  i=l  1  i=l 
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for  q  =  1,2,...,  NB+1.  The  upper  right  triangular  portion  of  matrices 
[Yb^]  and  [Y^l  are  formed  by  calling  YB1  and  they  are  stored  in  YD1 

3L  j)2 

and  YD2  respectively.  DO  loop  5  forms  the  matrix  [Y  +  Y.^]  and  stores 
the  result  in  Y.  DO  loop  14  forms  the  matrix  [y!^  +  YC]  and  stores  the 
result  in  the  appropriate  locations  in  Y.  DO  loop  7  computes  the  matrices 

[y!^],  [Y^l .  [Y^l  by  calling  YB2  and  stores  them  successively  in  Y. 

DO  loop  10  forms  the  matrices 


rYbl  +  Yb^l 
Y22  ll  ’ 


[Y 


b2 

22 


Yb3, 

11J  ’ 


[Y 


bQ-1 

22 


+  YbQ] 
11 J 


and  stores  them  in  array  Y. 


SUBRCUTI  NE  MATCY.NR.  ID.  X  I  .  YH  S C  .  NE  X.P  H  l  . NU.  P I  N  ) 

COMPLEX  Y14000). V01 ( 400 > .Y02 (400)  .XI (5000) 

COMPLEX  YHSAI40) . YHSC  (  40 ) . ET AN8 «M  AVNB 

COMMON  /R/W(  10),M10).YLU0>  ,»R(1C).CC(10),0(  101  .N(  10I.N  U  10)  .NR 
COMMON  /E/ET  ANA.ETANO.ETANC.  MAVNA .MAY  NQ . WAVNC . NAVNO 
COMPLEX  MKC 1 0 ) .UK ( 10 ). YLK<  1 0  )  .  YfiK  (  1 0  )  .  DC K<  10).0K(10) 

INTEGER  NU (lC).MU(lO) 

0  I  ME  NS  10  N  PHll 100). PIN!  100) 

NB  1=NE  +  1 
CO  2  1=1  •  NB  1 

NU(I  )=N(  I  )— I  CM 

2  CONTINUE 

NR  =0 

NK  =  0 

CO  3  1=1 .NH1 

NK=NK  +NU <  I) 

MU  1  1  )  =  NK  *  {  NK  4  1  )  /  2 
NR  =  Nfi  *NU (  I  ) 

3  CONTINUE 
NN=M  U ( NB 1  ) 

CO  1  1=1  .NN 

VC I)=0. 

1  CONTINUE 

WKA=w<l)  *  Y  A  v  NA 
MKC=M (NH  1  )*MAVNC 
CC A=CC ( 1  14MAVNA 
CCC  =  OC (NR  1 >*MAVNC 
IF< I C  .NE  .  1  >  CC  TC  12 


82 


CALL  YHSTEIVHSA.NUI 1 ) . DC A* HA VNA .E 1 AN A ) 

CALL  VHST£<YHSC«NV(NB1 ).DCC. AAVNC .ETANC) 

CALL  EXT E 2 ( X  I  * NU < 1 ) .NEX, PHI. OCA .MICA* ETANA. NA VNA.NR.P IN. WAV NO) 
GO  TO  13 

12  CALL  YHSTMlYHSA. NUI 1 ) .DC A. *A VNA .E IAN A ) 

CALL  YHS  TM ( V HSC . NUI N81 ) .OCC.  AAVNC .ETANC) 

CALL  EXT  M2 (XI «  NO  < 1  >.  NEX  .  PH  I  .  DC  A  .W KA . ETANA* »A VNA • NR ,P I N. MAVNO ) 

13  CONTINUE 

CO  4  1=1 .NB 
NK(I)-k(  1  )*X AVNB 
HKll  )  =H(  I  )*W  A VNB 
YLK<  I  )=Y  L  (  IMhAVNe 
YRK< 1 )=Yfi( IMttAVNB 
CCK(  I)=OC<  IMHAVNe 
OK ( I ) =0( I )*WAVNB 

4  CONTINUE 

AK 1 NB 1 )=  M (NB 1 ) *W AVNB 
CCKC NE 11  =  AK{ NB1 ) /N( NB1 > 

CALL  VBl <Y01,N(1).NT(1).10,OK(1 >. CCK 1 1) . HK ( 1 ) .YLKI 1) . 

1 ET ANB .AA VNB ) 

CALL  YB1  (YC2.NINB1 ) • NT I  NS )  • I  0  .OKI NB)  .CCKINB 1  ) • HK I NB 1 • 
1YRKINE). ET  ANE • AA  VNB I 
K=1 

Nl-NUI  1) 

DO  5  J=1  •  N1 
CO  5  1  =  1  .J 

Y(KJ=YDl (K)*YHSA( J-I411 
K=K4-  1 

5  CONTINUE 
Ml  =MU ( NB  ) 

NK  =  NR-NU (N81  ) 

K=  1 
L  =  NK 

M  =  NU  (  NB  1  ) 

CO  14  J= 1 *Nt 
CO  6  1  =  1  .J 

YI  KtHIH.  I=Y02 (K)  4-YHSCI  J-  I  4-  1  ) 

K=  K  ♦  1 

6  CONTINUE 
L=L+N« 

14  CONTINUE 
NK  =  0 

CO  7  1  =  1  « NB 

CALL  VB2  I  YC1  ,NT(  I  )  ,N(  Ul  )  .  N(  I  >.  ID  .OK  <  1)  .OCK(  I)  .OCX I  14-1). 

1  HK  I  I  )  .  YL  K  (  I  )  .VRK  (  I  l.ETANB.  AA  V  NB  ) 

L=  1 

K=MU<  1)4-1 
NC  =  NO<  14-  1  ) 

Nl  K=  NU<  I  > 

CO  8  J=1 .NC 

K=K4-  J-14-NK 

CO  8  1V=1,NI* 
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VIKI^YDl  (LI 
L=L*  1 
K=K*  1 

8  CONTINUE 

NK=NK*NU< I) 

7  CONTINUE 

IFINB.EQ.l)  RETURN 
NK=NU(  1) 

00  10  I=2.NB 

CALL  761  ( V01 .Nil  I.NTI I-I )•  10 .OKI I -1)  .OCKC I  I . HKt 1-1). 
1YRK(  I-ll  .ETAhB.WAV  N8 I 

CALL  V81  < Y02 .Nil) .NT ( I  I • ID .DK 1 1  I. CCK f Il.HKI I ). 

1  YLKC  I  )  *ET  AN8  .MAVNG) 

Ml  =MU  (  I—  1  I 

K=1 

L=NK 

N1=NU( II 

CO  11  J=  1  .  N 1 

00  IS  IM^l.J 

VIK  +  M1H.  I— YD1IK)*YD2(K) 

K=K*  1 

IS  CONTINUE 

L=L*NK 

11  CONTINUE 

NK=NK  +NU  {  I  | 

10  CONTINUE 

RETURN 
END 


3.7  Subroutine  GELS 


This  subroutine  solves  a  system  of  simultaneous  linear  equations 
with  a  symmetric  coefficient  matrix  by  Gaussian  elimination.  A  detailed 
explanation  of  the  algorithm  appears  in  [5].  The  argument  parameters  are: 


R  =  M*N  right  hand  side  matrix  containing 
excitation  vectors. 

A  =  upper  right  triangular  part  of  the  MxM 
coefficient  matrix  which  is  destroyed 
during  execution. 

M  =  the  number  of  equations  in  the  system 

N  =  the  number  of  right  hand  side  excitation 
vectors . 

M2  =  M* (M+l ) / 2 
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An  error  message  may  also  be  printed  out  to  indicate  round  off  error 
or  ill-conditioning  for  some  applications  but  it  is  unlikely  to  occur 
here.  This  is  explained  in  detail  in  [5]. 


SUBROUTINE  G  ELS  (  R  .  A  .  M.  N.  M2  ) 

COMPLEX  A  I M2 ) 

COMPLEX  RI5000)* AUXI4000) 

COMPLEX  PIVI.TB 

100  FORMAT!*  l***fcARNIhG - ERROR  CODE  IER  =  '  •  1 5  ) 

EPS=  I  *E-  07 
IF(M)24,24.1 
1  IER=0 
PI V=C. 

L=  0 

CO  3  K  =  1  ,M 
L=L  +  K 

T B  A=  C  ABS  I  A<  L  )  I 
IF(TBA-PIV)  3*3*2 
2  P I V  =  T  E  A 

I=L 
J=K 

3  CONTINUE 
TOL  =  EFS*P  IV 
LST=0 

NM  =  N  *  M 
LEND=  M-l 
CO  ie  K=  1  iM 
IFIPIV124.24.4 

4  IF(IER)7*E*7 

5  IF (P  I  V-T CL  )6  *6*7 

6  I E  R  =  K  -  1 

7  LT=J-K 
LST=L  ST+K 

PI  VI=1./A<  I) 

CO  a  L  =K  *  NM <  M 

LL=L*LT 

TB=P IVI*R<LL ) 

RILL )  =  R( L  ) 

8  R I L ) =TB 

IFIK-M19 , 19.  19 
9  LR=LS1*1  L1*(  K4J-  1  )  )/2 
LL  =  Lfi 
L  =  LST 

CO  14  II =  K  «L  E NO 
L  =  L*  I  I 
LL=LL  *1 

IF(L-LR)  12*10*11 
10  A( LL ) =A<  LST I 
TB= A  I L  ) 

GO  TC  13 
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11  LL-L  *LT 

12  TB=A ( LL) 

AC  LL  )  *  AC  L  ) 

13  AUX<  I  I  )=TE 

14  ACL) =  F IV 1 4TB 
AC  LST  )=LT 

PI V=0. 

LLST=LST 

LT=0 

CO  16  1 1  =  K  »L  END 
P I  V I  =— AU  X  C  1 1  ) 

LL=LL  ST 
LT=LT*1 

CO  15  LL  Os  1 1 ,LENO 
LL=LL  ALL  C 
L=LL*LT 

15  ACL)=ACL  MPIVI4ACLL) 

LL ST=LLST«  1 1 

LR=LL  ST+LT 
TBA=C ASST  ACLR  )  ) 

IF  CTB  A— P  IV)  17.17*16 
16  P 1 V=  TEA 
I=LR 
J=II*1 

17  CO  18  LR=K.NM«M 

LL=LR*LT 

18  RC  LL )-RCLL)*PIVI *fi  CLR ) 

19  IFCLEKD) 24*23.20 

20  I I =M 

CO  22  1=  2  ,M 
LST  =  L  ST- I  I 
11=11-1 
L=  A C  LST ) ♦ » 5 
CO  22  J=  I  I  *NM*M 
TB-R C  J ) 

LL  =  J 
K=LST 

CO  21  LT  =11. LEND 

LL  =L  L  ♦  1 

K=K*LT 

21  TB=TB-AC K  )*R CLL) 

K—  J«-L 

RC  J)=RCK  ) 

22  RC  KI  =  TB 

23  RETURN 

24  IER=-1 

ftRITE  C3«  ICO)  IER 

RETURN 

ENC 
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3.8  Subroutines  YB1  and  YB2 

Subroutine  YB1  computes  the  matrices  [Y^]  andtY^l  for  the  TE 
case  (Eqs.  (6-24)  and  (6-25))  or  the  TM  case  (Eqs.  (6-36)  and  (6-37)). 
Subroutine  YB2  computes  the  matrix  [Y^]  for  the  TE  case  (6-26)) 

or  the  TM  case  (Eq.  (6-38)).  These  two  subroutines  are  quite  similar 
and  argument  parameters  are  defined  in  terms  of  the  variables  appear¬ 
ing  in  Chapter  6  of  [1], 

Input:  NT  =  number  of  terms  at  which  infinite 
summations  are  truncated. 


N  =  number  of  expansion  functions  on  r 


°r  r  . 

q+1 

M  =  number  of  expansion  functions 

on  r  . 
q+1 

ID  =  integer  option  variable,  ID  =  1  for 
TE  case  and  ID  =  2  for  TM  case. 


DK  = 


Vq 

V\  °r  Aq+1> 


DCK  = 

DCKM  = 

DOT  - 

HK  =  k.  h 
u  q 

YK  =  V^q  °r  ylq+l) 

YKM  "  Vlq 

YKN  =  Vrq 
etb  =  n. /n 

D  O 

KB  =  1^/^ 

Output:  Y  =  appropriate  submatrix  of  Eq.  (6-8), 


n  n 


SUBRGUTl  NE  YOIIY.N.NT.ID.DK.  OCK  .HK«  YK  .ETB.KB  ) 

COMPLEX  VI400).STI200)*SIN2 
COMPLEX  OK.HK.YK  .ETB.KB.YB.KBC.CXP.SPS 
COMPLEX  CS IN .CCOS.CSQRT .  U. CONST  *Y S.DCK.CS.  SN 
OATA  U/(  0.  ,1 .)/. PI/3.141593/ 
CONST=-U*CCK*OCK/1ETB*KO*HK) 

IFII0.NE.1)  00  TO  3 

IF1ABSIA IMAG(OK)  ).GE.50.)  GO  TO  1 
VB=CCNST  *CCOS (OK > /CS INI  OKI 
GO  TO  2 
1  HF=  1 

IF (A  I  MAG  I  OK) .GT.O.)  MF*-1 
YB=MF*CONST*U 
CONT  INUE 
CO  5  IP=  I  .NT 

CXP=CSGR  T  I  1  •  - 1  IP*P  I/liK  )* 42  ) 

KB C=  OP*  OK 

SPS=I  IP*  P  I*DCK/2  ./HK) 

El N2= ( CS INISFS1/SPS) **2 
IF ( ABSIA  IMAGIKBO  )  l.GE.SO.)  GO  TO  t 
IF( IC.NE .1)  GC  TO  7 

ST  I  IP )=S IN2*CC0S(KB0)/ICSI N( KEO  I* CXP  ) 

GO  TO  10 

7  ST  I  IP  )=CXP*S  1N2*S  IN2*CC0S<  KBD  )/CS  INI  K  60) 

GO  TO  10 

6  MF=  1 

IF ( A  I M  AG lKBO).GT*C.)  MF=-1 
IF ( I O.NE . 1 )  CO  TO  e 
ST  I  IP )=MF*U*S IN2/CXP 
GO  TO  10 

8  STI IP  )=MF*U*CXP*SIN2*SIN2 

10  CONTINUE 

5  CONTINUE 

CO  NS  T  =  CO  NS  T*  2  • 

NU  =  N-  IC+  1 
K=  1 

CO  15  1=1. NU 
CO  IS  J=  1  .  I 
YS  =  0  . 

IF ( I C  .NE « 1 )  GO  TO  17 
CO  16  IP  =  1  .N  T 

CS=CCOS{  IP*P  I*IYK*I I -.5) *OCK  )/HK) * 

ICC OS  I  IP*PI*I YK*I J-.5 >*DCK> /HK  ) 

YS  =  YS«ST (  IP) *CS 

16  CONTINUE 

Y(  K)=YB*YS*CQNST 
K  =  K*  1 
GO  TO  18 

17  CO  19  IP  =  1  .  N  7 

SN=CS  INI  IP*P  I*IYK*I*OCK)/HK) *CS  IN  IIP  ♦PI*IYKf  J*OCK ) /HK ) 
YS=YS«ST  (  IF  MSN 
19  CONTINUE 

VI K)=YS*CCNS1 
K=K*  1 

18  CONTINUE 

15  CONTINUE 

RETURN 

END 
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SUBRCUTI  NE  Y  e  2  <  V  »  NT  ♦  N,  M «  ID .OK *OCK M.DCKN. HK * YKM.YKN.ETB. KB) 

COMPLEX  Y(400).ST<200).SPM.SPN.CS .SN.SIN2 

COMPLEX  OK.HK .YKM.YKN.ETB. KB »Y6  .KEO.CXP 

COMPLEX  CS IN .CCOS .CSQRT • U*  CONST .YS.OCKM. OCKN 

DATA  U/I 0..I .)✓. PI/3.141593/ 

CONST=  U*CCKM*OCKN/< ETB*KB*HK ) 

IF(ID.NE.I)  60  TO  2 

IFCABSCA  IMAG(OK) ) .GE.50. )  GO  TO  1 

YB-C0NST/CSIM(0K) 

GO  TO  2 

1  Y8  =  0. 

2  00  5  IP-l.NT 
SPM=IF*PI*DCKM/2./HK 
SPN= IF*P I40CKN/2./HK 

SIN2  =  CSI  N<  SPM )*CS INC  SPN) /SPM/SPN 
CX P= CSQRT  I  l.-I  IP*P  I/HK 1*42  I 
KBC— C  >P* OK 

IFIABSIA IMAGINED )).GE. 50.)  GO  TC  f 

IFII0.NE.1)  GO  TC  7 

STI  IP  )=S IN2/ICSINIKB0) 4C XP ) 

GO  TC  10 

7  ST  IIP  )=C  XP*S IN2*  S I N2/C  SI NC  KB 0 ) 

GO  TC  10 
6  ST  IIP  )=0  . 

10  CONTINUE 

5  CONTINUE 

CONST=CONST*2. 

NU  =  N-  10+ 1 
MU  =  M-  10+ 1 
K=  1 

CO  IS  J— 1 . NU 
CO  15  1=1.  MU 
YS  =  0  a 

IF(IC.Nc.l)  GC  TC  17 
CO  1C  IP=  1  .NT 

CS=CCOS(  IP*P 1*1 YKM  +  I I - . 5 ) *  OC  KM) /H  K  )  * 

1CC0SI  IP*P I*C YKN+ 1 J— • 5 ) *OCK N) /MK ) 

YS  =  Y S  +ST (  IP ) ACS 

16  CONTINUE 

VI K )  =  Y8+  YS4CCNST 

K=  K+  1 

GO  TO  18 

17  CO  IS  IP  =  1  .N I 

SN=CSIN{  IP4P1*(YKM  +  I*0CKM)/HK)*CSIN(  IP4PI* ( YKN  + J40CKN )/HK) 
YS  =  YS  +  ST  I IPMSN 
19  CONTINUE 

Y<  K  )  =  YS*  C ONST 
K  =  K+  1 

18  CONTINUE 

15  CONTINUE 

RETURN 

END 
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3.9  Subroutines  TRANS 2  and  GAIN2 


These  subroutines  are  simply  specializations  of  TRANS1  and  GAIN1 
which  are  explained  in  Sections  2.9  and  2.10.  They  are  used  to  compute 
the  transmission  coefficient  and  the  gain  and  normalized  field  patterns 
of  region  c. 


SUBROUTI  NE  TRANS 2! VHS.PIN.PH I .NEX  .VM.  ID.PT) 

COMMON  /B/M(10),HC10I.YL<10).YR(1C).CC<10>.D(10).N(10),NT<10> .NS 
COMPLEX  YHS ( 4  0). Y  AUX I 40 ) . VC!  4 0 )  . V M< 50 CO ) 

COMPLEX  CONJC  .SUM «S 

Cl  MENS  ION  PH i < 10  0). PIN! 1 00 >»  PT< IOC) 

CATA  PI/2.141593/ 

100  FORMAT  (•-*.*  EXCITATIONS  AND  TRAFSMSSICN  COEFFS.*) 

101  FORMAT!*  '.3611.4) 

NSK=0 

CO  2  1=1  ,Ne 

NSK  =  NEK4  N( I >41-10 

2  CONTINUE 
NC=N(NB4 1)41-10 
NR=NSK+NC 

CO  1  1  =  1  .NC 

YAUX(  I)=CCNJCIYHS(  I  )  ) 

1  CONTINUE 

*R ITE  <3.  1001 
K=  NSK 

CO  10  J= 1  . NE  X 

CO  3  1  =  1  ,NC 

VCI I  >=CONjG(  V M ( K 4  I  )  ) 

3  CONTINUE 
S=0. 

CO  4  1  =  1  •  NC 

S=S4VM(K4I)*VC!I  ) 

4  CONTINUE 
SUM=  Y  AUX (  1 )*E 
CO  5  L  =  2  .  NC 
S=  0  • 

NL  1  =  NC— L  4  1 
CO  6  1  =  1  .NL  I 

E=S4 VM(K  4  I  )* VC(L4 1-1 14VMCK4L  4  I- 1)  4VC  I  I  1 
t  CONTINUE 

EUM=  SUM4  Y AUX (L )*  S 

5  CONTINUE 

PT ( J  )=RE  AL (SUM) 

T=PT(  J)/P1N(  J) 

HR  ITE( 2.  10 1)  PHI (24J-1 ) .PH  II 2*J  1, T 
MR  IT  E ( 2.  1C1)  PHI  (24J-1  >. PH  I!  24 J  )  *  T 
K  =  K  4  NR 

10  CONTINUE 

RETURN 
ENC 
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H  * 


SUBROUTINE  G A  I N2 ( X  I . PHI . DPHI  .  NI  .PT.ID.NEX) 

COMMON  /B/tf!  I0>.HI  10).VL(1 Ot  . VR ( 1 C > . CC I  1 01 .OI 10}  .Nf 1 01. NT!  10) »NB 
COMMON  /e/etana.etanb.etanc. xavna ,xa vnb. ma VNC . XA VNO 

COMPLEX  X 1(5000) .U.CEXP.S. VM .ETANE.MAVNB 

01  MENS  ION  PHI(IOO).FPdOO)  .FT  (100  ).GA!10C)  »PT(  100) 

CATA  PH0/-l.S7079e/.U/(O.. 1.  )/. ET AO/277. / 

100  FORMAT!*  t,»*TE  GAIN  ANO  FIELC  PATTERNS*) 

101  FORMAT!*  1  * . • TM  GAIN  ANO  FIELD  PATTERNS*) 

102  FORMAT!*  *.3E15.4) 

N0  1=NE41 

NSK=0 

CO  1  1=1  .NB 

NSK=NSK«-N(  I  )  ♦  1-1  C 

1  CONTINUE 

NC  =  N( NB1  ) 4  1-  10 
NR=NSK4NC 

MK2=  W(  NB  1  )  AM  A  VNC/2  . 

CPH=-CPH 14PHC/90  . 

FH=PHC 

C2=DC(NB 1  )*WAVNC/2. 

CPH=- 1. 

CO  2  1=1 .NI 

SN  =  S  IN(PH) 

IF ( I C  . EQ .  2  )  CPH=-COS(PH) 

IFIPH.EQ.O.)  GO  TC  3 

FT ( I )=-S IN(D2*SN)/(02*SN| 

IF (  I  0  .EQ  .  2  )  FT! I  )=CPH*FT! I  )* *2 
CO  TC  4 
FT!  I  )  =  CPH 
CONT INUE 
PH=PF4DPF 

2  CONTINUE 

CONST  =  ET  A042.*D2**2/XAVNC 
K=  NSK 

CO  10  J=  1  *  NE  X 
PH=PFC 
CO  6  1  =  1  .NI 
SN=SIN(PH) 

S=0. 

CO  7  L  =  1  .NC 

VM=(  (  2*L  ♦  ID- 2  >*D2-XK2  )  *SN*U 
S=S4XI(K4L)XCEXP(YM)XFT(I) 

7  CONTINUE 
F=2.*D2*CABS(S) 

FP! I >=F 

G A ( I  )=F*F/(2 «  XX A  VNC  *ET  ANC*  PT ( J )  ) 

PH-PH40PH 
6  CONTINUE 

FM=FP(l) 

CO  8  1=2. NI 

IFIFM.LT.FP!  I  )  )  F  M=F  P  <  I  ) 

8  CONTINUE 
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00  9  1=1  *NI 
FP<n*FP(!)/FK 
CONTINUE 
PH-*—  9  0  • 

IF  (  I  C*EQ  •  1  )  kRITEO*  100) 
IFIIC.EQ.2)  kRITEO*  101  ) 

00  5  1*1  ■  N I 

•RITE  (3*  102)  PH.GMI  »*FPCI  ) 

WRITEI2.  102)  PH.GM  I  I.FPI  I  ) 

PH*PH«0PHI 

CONTINUE 

K=K+Nfi 

CONTINUE 

RETURN  ■ 

ENC 
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Chapter  4 

PROGRAM  III  -  MODAL  SOLUTION  FOR  RECTANGULAR  SLIT, 

SLIT  IMPEDANCE,  AND  PLANE. WAVE  APPROXIMATIONS 

The  purpose  of  this  computer  program  is  to  investigate  several 
approximate  methods  for  treating  a  filled  slit  in  a  conducting  plane  of 
finite  thickness  when  the  slit  cross  section  has  a  simple  rectangular 
shape  as  shown  in  Fig.  5.  The  specialization  of  the  modal  program  in 
Chapter  3  is  made  so  that  an  accurate  method  of  solution  is  always 
obtained.  The  cases  of  interest  are  when  the  slit  width  w  is  small 
compared  to  a  wavelength  in  region  c.  It  is  shown  in  Section  5.4  of  [1] 
that  the  transmitted  fields  may  be  written  in  terms  of  a  slit  impedance 
for  the  TE  case  and  a  slit  polarizability  for  the  TM  case.  Also  when 
the  material  filling  the  slit  is  dense,  the  plane  wave  approximation  de¬ 
veloped  in  Chapter  7  of  [1]  is  investigated. 

Some  subroutines  which  are  required  in  the  main  prograia  are  exactly 
the  same  as  those  used  in  Program  II.  These  are  listed  as  follows: 

EXTE2 

EXTM2 

HANK02 

HANK 12 

I4MN 

ALPHA 

YHSTE 

YHSTM 

GELS 


93 


Fig.  5.  Slit  of  rectangular  cross  section  for  Program  III. 
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Inl¬ 


and  will  not  be  described  in  this  chapter.  Subroutines  GAIN2  and  TRANS2, 
as  they  are  used  in  Program  III,  are  slightly  modified  and  are  listed, 
though  they  are  very  similar  to  the  ones  used  in  Program  II.  The  rest 
of  the  subroutines  are  described  and  listed  in  the  successive  sections. 


Table  6.  Arrangement  of  data  cards  for  Program  III,  N1  =  NEX  +  NGQ  +  1 


Data  Card 

Number 

Format 

Number 

Information  to  be  Typed  on  Card 

1 

101 

NGQ 

2 

102 

• 

A(l),  T(l) 

• 

1  +  NGQ 

% 

102 

A  (NGQ),  T(NGQ) 

2  +  NGQ 

101 

IJ0B(1) ,  IJ0B(2) , . . . ,  IJ0B(8) 

3  +  NGQ 

100 

PHI (1) ,  PHI  (2) 

1  +  Nl 

100 

PHI (2*NEX-1) ,  PHI (2*NEX) 

2  +  Nl 

100 

NMUA,  NEPSA 

3  +  Nl 

100 

NMUB,  NEPSB 

4  +  Nl 

LOO 

NMUC,  NEPSC 

5  +  Nl 

100 

W,  FMC,  DPHI 

6  +  Nl 

101 

N,  NT,  ND,  NI 

7  +  N1 


100 


N,  NT,  ND,  NI 

0(1) 


A. 1.1  Required  Input  Data  and  Main  Program  Description 

The  Input  data  required  by  the  user  Is  read  from  a  sequence  of 
data  cards  In  the  main  program  according  to  the  format  statements: 

100  FORMAT (6E11. 4) 

101  FORMAT (815) 

102  FORMAT (2E20. 7) 

The  sequence  of  data  cards  is  arranged  according  to  Table  6.  The  vari¬ 
ables  NGQ,  A,  T,  PHI,  NMUA,  NEPSA,  NMUB,  NEPSB,  NMUC,  NEPSC,  FMC,  DPHI, 
and  NI  have  exactly  the  same  meaning  as  they  do  in  Section  3.1.1  for 
Program  II.  The  rest  of  the  variables  are  defined  by: 

W  =  slit  width 

N  =  number  of  subsections  of  equal  length  into 
which  both  aperture  faces  are  divided. 

flT  =  Number  of  terms  at  which  infinite  sums,  used 
for  computing  admittance  matrices,  are 
truncated. 

ND  =  number  of  thicknesses  of  conducting  plane  for 
which  a  solution  is  desired. 

D  =  array  containing  thicknesses  d  of  conducting 
plane  for  which  a  solution  is  desired. 

The  array  IJOB  is  described  by  comment  cards  in  the  main  program  listing  and 
is  similar  to  that  of  Programs  I  and  II.  All  lengths  are  in  meters.  The 
program  is  set  up  to  obtain  a  solution  for  several  values  of  d  because  only 
the  matrix  [Y^]  need  be  computed  for  each  new  value  of  d.  The  half  space 
matrices  and  excitation  vectors  are  computed  once  then  stored.  The  normal¬ 
ized  wavenumbers  and  impedances  of  regions  a,  b,  and  c  are  calculated  and  if 
region  b  is  lossy,  the  conductivity  in  siemens/meter  and  skin  depth  in  meters 
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is  obtained  for  the  TE  or  the  TM  case,  depending  on  IJ0B(1)  or  IJ0B(2) 
by  calling  subroutine  S0LN3. 


4.1.2  Listing  of  Main  Program  and  Sample  Output 


c - THICK  SLIT  PROGRAM  THREE.  •• 

C  ANALYSIS  OF  SLIT  WITH  RECTANGULAR  CROSS  SECTION 

C  MGCAL  SOLUTION  FOR  FILLED  SLIT  IN  A  GROUND 

C  PLANE  OF  FINITE  THICKNESS. 

C 

COMPLEX  CSORT.ET AN8. NMUB ,NEP SB • HA VNB 
DIMENSION  PH  I< 100  )  .0(30) . I  JOB (0 » 

COMMON  /B/AAVNA.  AAVN8.WAVNC.  ETANA  ,ET ANB. ET ANC •  AA VNO 
REAL  NMU  A .NMUC.NEPSA .NEPSC 
COMMON  /GQI/AI 10) .T( 10).NGQ 
OATA  PI/3.141 593  / 

100  FORMATI6E11.4) 

101  FORMAT  <8  I S ) 

102  FO  RM AT (2E20.7) 

READ  (1.10  1)  NGQ 

RE  AD  (1.102)(A(1)«T<I).I=1.  NG  Q  ) 

MR  ITE  (  3.  101)  NGQ 

AR ITE13. 102) (AI I )»T( I) .1=1 .NGQ) 

C - IJOB(l)  =  1...  TE  CASE 

C  1JOBI2)  =  1...TM  CASE 

C  I  JQB(  3 )  =  NO.  OF  EXCITATIONS 

C  I  JQB(  4  )  =  1... PRINT  OUT  CURRENTS 

C  I  JOB!  5)  =  1...COMP.  TRANSMISSION  COEFFS. 

C  I  JOB!  6  )  =  1...COMP.  GAIN  AND  FIELD  PATTERNS 

C  I  JOB!  7)  =  1...COMP.  PLANE  A A VE  APPROX.  SOLUTION 

C  IJOBI8)  =  1...COMP.  ZERO  THICKNESS  SOLUTION 

READ!  1.1 01)1  I  JOB!  I).  1  =  1.8) 

ARITEI3.  101  M  I  JOB!  I  )  .1=1 .8) 

NEX=  I  JOB  (  3  ) 

K=1 

DO  1  1=1 .NEX 

RE  AD  1  1.1 00  )  PHI(K) .PHIIK+1  ) 

ARITEI3.  100)  PHI(K)*PHI(K+1) 

K=KH2 

1  CONTINUE 

READ!  1.1 00)  NMUA • NEPSA 
READ!  1.1  00)  NMUB.NEPSB 
READ!  1.1 00)  NMUC. NEPSC 
READ!  1*1 00)  W, F  MC . DP  HI 
READ  11.10  1)  N.NT.ND.NI 
AR  IT  E  (  3*  101)  N.NT.ND.NI 


97 


00  3  1=1  .NO 
READ11.100)  0(11 
MR  ITE (3.  100)  0(1) 

3  CONTINUE 

MAVNO=PI MFMC/150. 

WAVNA=SQRT!NMUA*NEPSA) 

MA  VNB=CS  QRT ( NMUB4NEPSB) 

MA  VNC  =  SQ R  T  !  N  MUC*  NEPSC I 
ET  AN A  =  SORT (NMUA/NEPSA) 

ET  ANB=CS  QRT ( NMUB/NEPSB) 

ETANC=SQRT (NMUC/KEPSC) 

200  FORMAT ( • I • «1SX.* THICK  SLIT  PARAMETERS...*) 

201  FORMAT !  • — '.lSX.'SLIT  WIDTH  W  =*.E11.4) 

203  FORMAT! • — • .1SX.*REGI ON  PARAMETERS  NORMALIZED  BY  THOSE  OF*. 

1 IX.* FREE  SPACE*) 

204  FORMAT! .1  EX. ‘REGION  A • • 14 X • • RE 6 ION  C* • 1 4X • • REGI ONB • ) 

206  FORMAT!* -••• PERMEABILITY* . 3X .El 1. 4.1 1 X.E1 1 . 4 • 1 1 X.2E1  1.4) 

207  FO  RM  AT!  *  —  *  *  •  PERM  ITTIVITY*  .  3X  .El  1.4.1  1X.E11 .4  •  1 1X.2E1  1  .4) 

208  FORMAT !•—•»*  IMPEOANCE* .6X. El  1.4.1 1X.E11.4.11X.2E 11.4) 

200  FORMAT!*-*.*  WAVE NUMBER*. 5X.E II. 4, I IX .El  1 .4. 1 IX. 2E1 1 . 4 ) 

210  FORMAT!*-* i * CONOUCTI V I TY  OF  REGIONS  =• .El  1 . 4 , 2X. « MHOS/MET ER •  ) 

211  FORMAT !•— *,*SKIN  CEPTH  OF  REGION  B  = • .El  1 .4 • 2X. *  METERS* ) 

MR  ITE !3» 200) 

MR1TE13.201)  W 
MR ITE! 3. 203) 

MR  ITE  !  3.  204) 

MRITEI3. 206)  NMU A • NMUC • NMUB 
MR ITE! 3. 207)  NEPS A .NEPSC .NEP SB 
MRITE (3. 208)  ETANA.ETANC .ETA NB 
MR ITE!3. 209)  MAVNA.MAVNC .WAVNB 
W=  WMMAVNO 
0C=V/N 

IF  !  A  I  MAG  !  NEP  SB  ).EQ.O.)  GO  TO  2 
SI G=— FMC  *AIMAG(NEPSB)/! • 18E  5) 

SKO=-  1./  !  WAV  NO  4  A  I  MAG  (  WAVNB  )  ) 

MR  I T E ( 3 • 210)  SIG 
WRITEI3. 211)  SKD 
2  CONTINUE 

IF1I  JOB!  1  ).NE.I  )  GO  TO  10 

CALL  SOL  N3I 1 • I JOB .PH  I • NE  X. NI .OPHI  .DC .0. W.NT • N. ND ) 

10  IFCIJCB! 2)«NE.l)  GO  TO  20 

CALL  SOL  N312.IJOB .PH I • NE  X . NI  .OPHI  .DC • 0 . W .NT . N. ND ) 

20  CONTINUE 

STOP 
ENO 


Sample  output  is  presented  for  a  slit  of  rectangular  cross  section 
where  regions  a,  b,  and  c  are  free  space.  The  excitation  consists  of  a 
normally  incident  plane  wave.  Gain  and  field  patterns  are  not  computed. 
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The  data  cards  used  are  shown  in  Table  7.  The  magnetic  currents  for  the 
case  when  d  =  0  are  printed  out  first  in  the  order  in  which  they  appear 
on  T1  as  shown  in  Figs.  8  and  9  of  Appendix  A.  The  real  part,  imaginary 
part,  and  magnitude  of  each  expansion  function  coefficient  is  given.  For 
the  cases  when  d  i*  0,  the  first  N  coefficients  for  T  (in  this  example 
N  =  6)  are  printed  out  followed  by  the  next  N  coefficients  for  T^.  In 
Program  III,  the  aperture  faces  are  and  and  these  coefficients 
determine  the  heights  of  the  expansion  functions  which  are  ordered  on 
and  r2  according  t£t  Figs.  8  and  9  of  Appendix  A. 

Table  7.  Arrangement  of  data  cards  to  produce  sample  output  in 
Program  III.  $  sign  is  in  column  one. 


4 


0.1739274E  00 
0.1739274E  00 
0.326072SE  00 
0.3260725E  00 
1111 
0.0000E  00  O.OOOOE  00 
6  10  7  40 

0.5000E-01 
0.1000E  00 
0.2000E  00 
0.2500E  00 
0.3000E  00 
0.4000E  00 
0*5  000 E  00 

THICK  SLIT  PARAMETERS... 


SLIT  WIDTH  W  =  0.1000E  00 


REGION  PARAMETERS  NORMALIZED  BY  THOSE  OF  FREE  SPACE 


— 0 .430  5682E  00 
0 .430  5662E  00 
-0.1699905E  00 
0.1699905E  00 
10  0  1 


REGION  A 

REGION  C 

REGIONS 

PERMEABILITY 

4 

0.1000E 

01 

0.1  00  OE 

01 

0.1000E 

01 

0. OOOOE 

00 

PER  MITT!  VI  TY 

0.1000E 

01 

0.1 00  OE 

01 

0. 1 OOOE 

01 

0. OOOOE 

00 

IMP  EDA  NCE 

0.1000E 

01 

0.1  00 OE 

01 

0.1000E 

01 

0. OOOOE 

00 

WAVENUMBER 

0.1000E 

01 

0.1  00 OE 

01 

0. 1000E 

01 

0.  OOOOE 

00 

...TE  CASE... 


THICKNESS  CASE 

;  FOR  INCIDENCE 

O.OOOOE  00  O.OOOOE  00 

1 

0.20  39  E 

0  1-0  .2730E  0  1 

0.34  07E 

01 

2 

0 . 6327E 

oo-o.iooeE  oi 

0. I307E 

01 

3 

0. 6432E 

00-0 . 1 00  SE  01 

0. 1312E 

01 

4 

0.6432  E 

00—0 • 100SE  01 

0. 1312E 

01 

5 

0 • 8327  E 

oo-o.i oo eE  oi 

0. 1307E 

01 

6 

0.2039E 

01-0.273CE  01 

0.3407E 

01 

SLIT  IMPEDANCE  =-0.6191 E  00  0.7904E  00 

QUA  SI  —  STATIC  IMPEDANCE  =  -0.G1S7672E  00  0.7760662E  00 


100 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
0.0000E  00  O.OOOOE  00  0.1238E  01 


MODAL  MAGNETIC  CURRENTS • 0.0000E  00  O.OOOOE  00 


D  *  0.5000E-01 


1  0. 1001 E 

01-0 

•  163  IE 

01 

0.1914E 

01 

2  0.6489E 

0  0-0 

•  999  7E 

00 

0.1192E 

01 

3  0.6441 E 

00-0 

•979EE 

00 

0.1172E 

01 

4  0.6441E 

00-0 

•9796E 

00 

0.1172E 

01 

5  0.6489E 

00-0 

•9997E 

00 

0.  1192E 

01 

6  0.100IE 

01-0 

. 163  IE 

01 

0.1914E 

01 

7-0. 9723 E 

00  0 

.207SE 

01 

0.2291 E 

01 

8-0.6369E 

00  0 

. 1282E 

01 

0.  1432E 

01 

9- 0.63 26 E 

00  0 

•  1 26  EE 

01 

0. 141 AE 

01 

I 0— 0.6326E 

00  0 

. 126SE 

01 

0.1414E 

01 

11—0. 6369E 

00  0 

. 1282E 

01 

0.  1432E 

01 

1 2— 0.9723E 

00  0 

•207SE 

01 

0. 2291 E 

01 

D  =  0. 5000E— 0 1 


2S  Z  T 

0* 3 82 AE  00  ->0.6017E  00  -0.3736E  00  0.7703E  00 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.9033E  00 


MODAL  MAGNETIC  CURRENTS...  O.OOOOE  00  O.OOOOE  00 


D  =  0.1000E  00 

1  0.6999E  00-0. 

2  0.4563E  00-0. 

3  0 .4573 E  00-0. 

4  0.4573E  00-0. 

5  0.4563E  00-0. 

6  0.6999E  00-0. 

7—  0.5737E  00  0. 

8— 0.3911 E  00  0. 

9— 0 • 3941 E  00  0 . 

10- 0.3941 E  00  0 . 

1 1- 0.3911 E  00  0 . 

12- 0.S737E  000. 


1 07  IE 

0  1 

0. 1280E 

01 

6639E 

00 

0*  8056E 

00 

6604E 

00 

0.8033E 

00 

6604E 

00 

0.e033E 

00 

6639E 

00 

0.8056E 

00 

107  IE 

01 

0.1280E 

01 

2049F 

01 

0.2128E 

01 

1282E 

01 

0.  1340E 

01 

1277E 

01 

0. 1337E 

01 

1277E 

01 

0. 1337E 

01 

128  2E 

01 

0. 1340E 

01 

2049E 

0  1 

0.2128E 

01 

D  =  0.1000E  00 


ZS  1 1 

0.2689E  00  -0.3993E  00  -0.2265E  00  0.7680E  00 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
0. 000 OE  00  0*000 OE  00  0.790IE  00 


MOO AL  MAGNETIC  CURRENTS...  O.OOOOE  00  O.OOOOE  00 


O  =  0.2000E  00 


1 

0.6926E 

00 

0 

• 1326E 

00 

0.70S2E 

00 

2 

0.4343E 

00 

0 

•9363E- 

01 

0.4443E 

00 

3 

0.4331 E 

00 

0 

•  948  IE— 0  1 

0.4433E 

00 

4 

0.4331 E 

00 

0 

•9480E- 

01 

0.4433E 

00 

5 

0.4343E 

00 

0 

•  936  3Et-01 

0.4443E 

00 

6 

0.6926  E 

00 

0 

•1326E 

00 

0.7052E 

00 

7 

0.1239E 

00 

0 

•2333E 

01 

0.2336E 

01 

8 

0.4390E- 

01 

0 

•  147  IE 

01 

0.14  72 E 

01 

9 

0.3916E- 

01 

0 

•  146  EE 

01 

0.1469E 

01 

10 

0.3916E— 

01 

0 

•1468E 

01 

0.1469E 

01 

11 

0 .4390  E— 

01 

0 

. 147  IE 

01 

0.1472E 

01 

12 

0.1239E 

00 

0 

. 2333E 

0  1 

0.2336E 

01 

O  *  0.2000E  00 


ZS  ZT 

0. 2 60 OE  00  0.5350E-01  0.34S0E-0I  0.8787E  00 


EXCITATIONS  ANO  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.9522E  00 


MODAL  MAGNETIC  CURRENTS  ...  O.OOOOE  00  O.OOOOE  00 


O  =  0.2S00E  00 


1 

0.11  13E 

01 

0 .e340E 

00 

0.  1391 E 

01 

2 

0.688SE 

00 

0 .541  EE 

00 

0.8760E 

00 

3 

0 • 6854  E 

00 

0.542CE 

00 

0. 8741 E 

00 

4 

0.68 54E 

00 

0 .5426E 

00 

0.8742E 

00 

5 

0.688SE 

00 

0 .S41SE 

OC 

0.8760E 

00 

6 

0.1 1  13 E 

01 

0 .8340E 

00 

0. 1391 E 

01 

7 

0.7399E 

00 

0  . 264 6E 

01 

0.2750E 

01 

8 

0.4272E 

00 

0.1679E 

01 

0.  1732E 

01 

9 

0.4210E 

00 

0 . 1676E 

01 

0. 1728E 

01 

10 

0.4210E 

00 

0 .1676E 

01 

0.1728E 

01 

1  1 

0 . 4272  E 

00 

0 . 167 SE 

01 

0.  1732E 

01 

12 

0.7399E 

00 

0  . 264  8E 

0  1 

0.27S0E 

01 
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O  w  O.ZSOUt  UU 


ZS  Z  T 

0.4144E  00  0.3197E  00  0.2647E  00  0.1001E  01 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  0*000 OE  00  0.1320E  01 


MOO AL  MAGNETIC  CURRENTS. •  •  O.OOOOE  00  O.OOOOE  00 


O  -  0.3000E  00 


1 

0.2183E 

01 

0 . 1397E 

01 

0.2591 E 

01 

2 

0. 13S4E 

01 

0.911  EE 

00 

0.  1632E 

01 

3 

0.1348E 

01 

0  .9  14  OE 

00 

0.1629E 

01 

4 

0.  1348E 

01 

0.9 14  OE 

00 

0. 1629E 

01 

5 

0.13S4E 

01 

0.9116E 

00 

0.1632E 

01 

6 

0.2183E 

01 

0 .1397E 

01 

0.2591E 

01 

7 

0.19S1E 

0  1 

0  .285  IE 

01 

0.34S5E 

01 

8 

0.1 187E 

01 

0 . 1824E 

01 

0.2176E 

01 

9 

0.1 179E 

01 

0 • 1824E 

0  1 

0.2172E 

01 

10 

0.1  179E 

01 

0 . 1824E 

0  1 

0.2172E 

01 

1  1 

0.1 187E 

01 

0 . 1824E 

01 

0.21 76E 

01 

12 

0.1951 E 

0  1 

0  •  285  IE 

01 

0.3455E 

01 

D  = 

0.3000E  00 

ZS 

ZT 

142E  00  0.5371E  00 

0.7195E  00 

0. 

EXCITATIONS  ANO  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.2084E  01 


MOO  AL  MAGNETIC  CURRENTS...  O.OOOOE  00  O.OOOOE  00 

O  =  0.4000E  00 


1 

0 • 40  77  E 

01-0 

. 1439E 

01 

0.4324E 

01 

2 

0.2569E 

01-0 

.  846  7E 

00 

0.2724E 

01 

3 

0.25  86  E 

01-0 

.836  72 

00 

0.2718E 

01 

4 

0.2586E 

01-0 

.8367E 

00 

0.271 8E 

01 

5 

0.2589E 

01-0 

.8467E 

00 

0.2724E 

01 

6 

0.4077E 

01-0 

. 1439E 

0  1 

0.4324E 

01 

7 

0.4021 E 

01-0 

•eaosE 

00 

0.4078E 

01 

8 

0.2542E 

01-0 

•  369  7E 

00 

0.2569E 

01 

9 

0.2538E 

0  1-0 

. 3609E 

00 

0.2564E 

01 

10 

0.2538E 

01-0 

•3609E 

00 

0.2564E 

01 

1  1 

0.2S42E 

01-0 

. 369  7E 

00 

0.2569E 

01 

12 

0.4021E 

0  1-0 

.680SE 

00 

0.4078E 

01 
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o 


0.4000E  00 


ZS  Z  T 

0.1S42E  01  -0.5204E  00  0. 1S17E  01  -0.23S2E  00 


EXCITATIONS  AND  TRANSMISSION  COEFFS* 
0. OOOOE  00  0*000 OE  00  0.2904E  01 


MOD*.  MAGNETIC  CURRENTS***  0. OOOOE  00  0. OOOOE  00 


O  *  0.5000E  00 

1  0.6675E  01-0.2164E  00  0.6678E  01 

2  0*7691 E  00-0 .4982E-01  0.7707E  00 

3  0.38S4E  01-0 .1823E-01  0.3854E  01 
4—  0*1 032  E- 0  4  0.6939E-02  0.6939E-02 

5  0.4623E  01-0 .8961E-01  0.4624E  01 

6  0.3S92E  0 1—0 • 1956E  00  0.3597E  01 

7  0*51 33 E  0 1—0 .202 2E  00  0.S137E  01 

8  0*3081 E  01-0 .7739E-01  0.3082E  01 

9  0*15 42 E  01-0 • 1839E-02  0.1542E  01 

10  0.1542E  0 1-0 . 186  IE-02  0.1542E  01 

11  0  *3081 E  01-0 .7735E-01  0.3082E  01 

12  0.5133E  01-0.2022E  00  0.S137E  01 


O  *  0 • 500 OE  00 


ZS  ZT 

0.1626E  01  -0.46S1E-01  0* 1626E  01  -0.4690E-01 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
0*  000  OE  00  0*000  OE  00  0.32S1E  01 


••• TM  CASE*.* 


ZERO  THICKNESS  CASE  FOR  INCIDENCE-  O.OOOOE  00  C* OOOOE  00 

1— 0,9596E-02-0  *2548E  00  0.2550E  00 

2— 0* 1 150E- 0 1—0  «  304 6E  00  0.3051E  00 

3— 0* 1 233 E- 0  1-0  *3  26 7E  00  0.3270E  00 

4— 0* 1 1 50 E—  01—0 • 3  04GE  00  0.3051E  00 

5—  0*9596 E— 02-0  *2540E  00  0.2550E  00 


SLIT  POLAR  IZABILI  TV  *  0.1918E  00-0.7231E-02 

QUA  SI -  ST AT I C  POLARI ZA8I L ITT  =  0.2218380E  00  -0 • 1957949E-01 
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EXCITATIONS  A  NO  TRANSMISSION  COEFFS. 
O.OOOOE  00  0*000 OE  00  0.9086E-02 


MODAL  MAGNETIC  CURRENTS**.  O.OOOOE  00  O.OOOOE  00 


D 


=  0*  5000E— 0 1 

1- 0.31 79E-02-0.1986E  00 

2- 0.4005E-02-0 .2479E  00 

3- 0.4333E-02-0 .2690E  00 

4-  0*4006 E—  02—0  *2507E  00 

5-  0*3179 E— 02— 0  *201 7E  00 

6  0  •  8520 E- 03-0  •  809  IE— 0  i 

7  0*1269 E— 02  0.3374E-01 

8  0 • 1427 E—  02  0.4757E-01 

9  0*1271  E—  0 2  0  •  4905E— 0  1, 
10  0.8562E-03  0.322  IE-0  1 


0.1986E  00 
0.2479E  00 
0.2691E  00 
0.2S07E  00 
0.2017E  00 
0.8092E-01 
0.3377E-01 
0.4759E-01 
0*  4906E—  01 
0 . 322  2  E—  01 


D  =  0  *  5000E— 0 1 


ZS  ZT 

-0.1549E  00  0.2480E-02  0.4729E-03  0.6804E-02 


EXCITATIONS  ANO  TRANSMISSION  COEFFS* 
O.OOOOE  00  O.OOOOE  00  0.3003E-04 


MODAL  MAGNETIC  CURRENTS...  O.OOOOE  00  O.OOOOE  00 


D 


=  0.1 00 OE  00 
1  —  0.3 162E—  0  2— 0  . 203  7E  00 

2— 0.3959E-02— 0 .2546E  00 

3—  0 • 4276E—  02—0 • 2749E  00 

4—  0.3959E-02-0 .25476  00 

5—  0.3162E— 02— 0 .2039E  00 

6— 0.2465E-03-0 . 1 135E  00 

7—  0.2625 E-0 3—0 . 1727E-0  1 

8—  0. 2693 E- 0  3—0 . 1024E-0  1 

9— 0.2601  E—  03— 0 . 1973E-02 
1 0-0 .24 23 E- 03— 0 .4198E-03 


0.2038E  00 
0.2546E  00 
0.2749E  00 
0.2547E  00 
0.2039E  00 
0.1135E  00 
0.1727  E—  0 1 
0.102SE-01 
0. 1990E— 02 
0.4847E-03 


D  *  0. 1000E  00 


ZS 

0.2456E— 02  -0. 1067E-03  -0.1195E-01 


-0.1581E  00 
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EXCITATIONS  AND  TRANSMISSION  COEFFS. 
0.0000E  00  0*000  OE  00  0.8964E-04 


MODAL  MAGNETIC  CURRENTS •••  0.00 00E  00  0.0000E  00 


O 


=  0.2000E  00 

1- 0.3198E-02-0.2050E  00 

2- 0. 4009 E- 02-0 *2564E  00 

3- 0*4331 E-02-0 .2769E  00 

4- 0.4009E-02-0 .2S64E  00 

5-  0*3198E— 02— 0  *2050E  00 

6- 0.5341  E-03-0. 1220E  00 

7-  0. 6660 E- 03-0 .306  IE-01 

8- 0.71 77E— 03— 0 .2545E-01 

9- 0.6636 E-03-0 .153  IE-01 

10-0 .5299E-03— 0 .8848E— 02 


0.2050E  00 
0.2565E  00 
0.2770E  00 
0.2565E  00 
0.2050E  00 
0.1220E  00 
0.3062E— 01 
0.2S46E— 01 
0.1532E— 01 
0. 8863E—  02 


O  =  0.2000E  00 


—  0.1  59 IE  00 


ZS 

0.2486E-02 


-0. 2593E-03 


ZT 

-0. 1685E-01 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  0.000  OE  00  0.1777E-03 


MODAL  MAGNETIC  CURRENTS...  O.OOOOE  00  O.OOOOE  00 


D 


-  0.2S00E  00 
1  — 0.32 00 E- 02—0 • 20S  OE  00 

2— 0.4011 E—  0  2—0 .2 56 5E  00 

3— 0.4334 E-02-0 .2770E  00 

4— 0.4011 E— 02— 0 . 256 SE  00 

5- 0.3200E-02-0 .2050E  00 

6—  0.5450E— 03— 0 • 1223E  00 

7- 0. 68 14 E-03-0 .311  IE-01 

8- 0. 7348E- 03-0 .2603E— 01 

9- 0. 6790 E-03-0 . 1582E-01 

10— 0.5408E— 03— 0 .9167E-02 


0.2050E  00 
0.2566E  00 
0.2771 E  00 
0.2566E  00 
0.2050E  00 
0.1223E  00 
0.31 12E-01 
0. 2604E—  01 
0. 1583E-01 
0.9183E— 02 


D  *  0 • 250 OE  00 

ZS  ZT 

-0.1592E  00  0.2488E-02  -0.2651E-03  -0.1703E-01 
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excitations  ano  transmission  coeffs. 

O.OOOOE  00  O.OOOOE  00  0.1816E-03 


MODAL  MAGNETIC  CURRENTS  ...  0..0000E  00  O.OOOOE  00 


D  =  0.3000E  00 

1 —  0.3200E— 02— 0 . 205 OE  00  0.20S0E  00 

2— 0. AO 12E—  02— 0 . 256 SE  00  0.2566E  00 

3— 0.4334E-02-0.2770E  00  0.2771E  00 
♦— 0.40 12E— 02— 0 .256SE  00  0.2566E  00 

5—  0.3200E— 02— 0 .2050E  00  0.20S0E  00 

6— 0 .5473 E— 03— 0 . 1223E  00  0.1224E  00 

7—  0.6847 E—0 3—0 .3I22E-0I  0.3123E-01 

8— 0.7384E- 03-0 .261 5E-01  0.2616E-01 

9— 0.6823E-03-0 .  1592E-01  0.IS94E-01 

10— 0 .54 32 E—0 3— 0.9 23 6E— 02  0.9252E-02 


D  =  0.3000E  00 


ZS  ZT 

-0.1592E  00  0 .24  886  —  02  -0.2663E-03  -0.17C7E-01 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.1824E-03 


MODAL  MAGNETIC  CURRENTS  ...  O.OOOOE  00  O.OOOOE  CO 


O  =  0.4000E  00 

1— 0 .32 00 E—0 2—0 .2050E  00  0.2050E  00 

2— 0.4012E-02-0 .2565E  00  0.2566E  00 

3—  0 .4335E—  0  2—0 • 2  77  CE  00  0.2771E  00 

4— 0 .40 12 E— 0 2—0 .256EE  00  0.2566E  00 

5— 0.3200E— 02— 0 .2050E  00  0.2050E  00 

6— 0. 5480E- 03-0 . 1224E  00  0.1224E  00 

7— 0 . 68S5E- 0  3—0 .312EE-0 1  0.3126E-01 

8—  0.7 394  E—  0  3—0  .261 9E-0 1  0.2620E-01 

9—  0.68 32 E—0 3-0 . 1S9EE-01  0. 1597E-01 

10— 0.5438E— 03— 0 .9254E— 02  0.9270E-02 


O  =  0 .40006  00 


—  0.  I  59 2 E  00 


ZS 

0.2488E-02  -0.2667E-03 


ZT 

0 . 1 7  08  E—0  1 


excitations  and  transmission  coeffs. 

O*  000 OE  00  0.0000E  00  0.I827E-03 


MODAL  MAGNETIC  CURRENTS...  0.0000E  00  O.OOOOE  00 


O  =  0.5000E  00 

1— 0 .3200 E— 02—0 . 205  0E  00  0.2050E  00 

2—  0.4012E— 02— 0  *256 SE  00  0.2566E  00 

3— 0 .4335E— 02— 0 . 277 OE  00  0.2771E  00 

4—  0.40 12 E— 02— 0 .256SE  00  0.2S66E  00 

5—  0.3200E— 02— 0.2050E  00  0.2050E  00 

6—  0.5480 E— 03— 0 • 1224E  00  0.1224E  00 

7—  0.6856E—  03—0 .3125E-01  0.3126E-01 

8— 0. 7394 E- 03-0. 261 9E-01  0.2620E-01 

9—  0.6832E—  03—0 . 159SE— 0 1  0.1597E-01 

1 0— 0.5438E-03— 0 .9255E-02  0.9271E-02 


O  -  0.500CE  00 


ZS  ZT 

-0.1592E  00  0.2488E-02  -0.2667E-03  -0.17C8E-01 


EXCITATIONS  AND  TRANSMISSION  COEFFS. 
O.OOOOE  00  O.OOOOE  00  0.1827E-03 
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4.1.3  Minimum  Storage  Requirements  for  Arrays 

The  minimum  storage  required  for  each  array  used  in  Program  III 
is  given  here.  Arrays  which  are  execution-time  dimensioned  are  not  men¬ 
tioned  (i.e.,  array  C  in  subroutine  CSMTZ) .  Integers  which  are  used  to 
specify  the  array  sizes  are  defined  by: 

NEX  =  number  of  excitations  or  sources  in 
region  a  to  be  considered. 

ND  =  number  of  thicknesses,  d,  of  conducting 
plane  to  be  computed  for  a  given  aper¬ 
ture  width  w. 

NGQ  =  order  of  Gaussian  quadrature  formula 
used  for  numerical  integration. 

N  =  number  of  subsections  into  which  each 
aperture  face  is  divided. 

NT  =  number  of  terms  at  which  infinite 
summations  are  truncated. 

NI  =  number  of  points  in  region  c  at  which 
far  field  is  computed  to  obtain  field 
patterns. 

The  allocations  required  for  the  arrays  in  common  blocks  are  given  by: 

GQI:  DIMENSION  A (NGQ),  T(NGQ) 

The  allocations  required  for  arrays  used  in  the  subroutines  are  as  follows: 

MAIN  PGM:  DIMENSION  PHI(2*NEX),  D (ND) , 

IJ0B(8) 

S0LN3 :  COMPLEX  Y(N* (2*N+1) ) ,  XI(2*N*NEX), 

YHSA(N),  YIISC(N),  YHS(N), 

XD(2*N*NEX) ,  XZ (N) ,  XIPW(2*N*NEX) , 

YZ(N) 

DIMENSION  PHI  (2*NEX) ,  PT(NEX), 

PIN (NEX),  D (ND ) ,  IJ0B(8) 
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CSUM:  COMPLEX  XI(2*N*NEX) 

PWB:  COMPLEX  YHSA(N) ,  YFSC(N),  XI(2*N*NEX), 
XIPW(2*N*NEX) ,  Y(N*(N+l)/2), 

YDA(N) ,  YDC(N) 

DIMENSION  PHI (2*NEX) 

TRANS2:  COMPLEX  YKS(N),  YAUX(N),  VC(N), 
VM(2*N*NEX) 

DIMENSION  PHI(2*NEX) ,  PIN(NEX), 

PT(NEX) 

GAIN2 :  COMPLEX  XI(2*N*NEX) 

DIMENSION  PHI(2*NEX),  FP(NI), 

FT(NI),  GA(NI),  PT(NEX) 

YB:  COMPLEX  Y(N*(2*N+1)),  STl(NT), 

ST2 (NT) 

DIMENSION  SIN2 (NT) 

EXTE2  and 

EXTM2 :  COMPLEX  XI (2*N*NEX) 

DIMENSION  PHI (2*NEX) ,  PIN(NEX) 

GELS:  COMPLEX  R(2*N*NEX),  AUX(N*(2*N+1)) 

CSMTZ:  COMPLEX  E(N) ,  ES(N) 


4.2  Subroutine  YB 

This  subroutine  forms  the  upper  right  triangular  portion  of 
the  matrix  [Y^]  given  by  Eq.  (7-2).  A  specialization  of  Eqs.  (6-24) 
and  (6-26)  is  used  for  the  TE  case  and  a  specialization  of  Eqs.  (6-36) 
and  (6-38)  is  used  for  the  TM  case.  A  finite  number,  NT,  of  terms 
is  taken  in  the  infinite  summations.  The  integer  NU  equals  the  number 
of  magnetic  current  expansion  functions  on  the  aperture  faces.  The 
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computations  are  quite  straightforward  and  the  result  is  stored  in 
the  array  Y.  The  argument  parameters  are  defined  by 

Inputs  N  «  number  of  subsections  into 
which  each  aperture  face  is 
divided, 

DCK  =  subsection  length  W/N  times  k^. 
WK  =  k^w 
DK  =  k^d 

et  =  n./n 

b  o 
WAV  =  1^/k^ 

NT  =  number  at  which  infinite 
summations  are  truncated. 

ID  =  integer  option  variable,  ID  =  1 
for  TE  case  and  ID  =  2  for  TM  case. 

Output:  Y  =  array  containing  elements  of  the 

upper  right  triangular  portion  of  the 
matrix  [Yb]  of  Eq.  (7-2). 


SUBROUTI  NE  Y  e  (  V,  N  .  OCK.  WK  .  DK.  ET,  WV.NT.I  D> 
COMPLEX  YI2000*. STIC  150) .ST2I  150) 

COMPLEX  CSIN.CCOS.CSQRT.U. VB  1 1 . VB 12 . CXP, KBO 
COMPLEX  ET .WAV.DK.WK.DCK.CONST. VS  11. YS12 
DIMENSION  SI  N2(  1  50  > 

DATA  U/(  0..1  .1/.PI/3. 141593/ 

C - 10  =  1  MEANS  TE  CASE.  ••  GTHERWI  SE  TM  CASE 

N2=2*N 
NU=N* 1-1 O 

CONST=DCK/IN*U*W AV4ETI 
IF(IC.NE.l)  GO  TO  3 
IFIABSIA IMAG(OK)  ).GE.50.)  GO  TO  1 
YB 12=CCN ST/C S INI  OKI 
VB 1 1 = YB1 2* CCOSIOK) 

GO  TO  2 

1  MF-l 

IF  (AIMAG  (CK»  .GT.O.)  MF=-1 
YB 1 1 =MF4  CONST  *U 
YB 12s  0 . 

2  CONTINUE 
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DO  5  IP®  1  .NT 

CXP=CSQRTC  l.-C  IP*PI/MK  1**2  I 
KBD=CXP*OK 

IFCABSCAIMAGCKBDII.GE.SO.)  go  TO  6 
IFCIC.NE.il  GO  TO  7 

ST  21  IP),=  1./CCSINCK8D)*CXP*(IP*P  I/N2>**2) 
STIC  IP)®  ST2C  IP)*CC0SCKBD1 
GO  TO  10 

7  ST2C  IP)=CXP/CCSINCKBD)*C  IP*P  I/N2I ) 

STIC IP)=ST2C IPIACCOSCKBD) 

GO  TO  10 
6  *F=l 

1FCAIMAGCKBD)  .GT.O.I  MF=-1 
ST2C  IPI®0. 

1FCIO.NE.1I  GO  TO  S 

ST  1C IPI®  MF*U/CCXPM IP*PI/N2>  **2  I 

GO  TO  10 

8  STIC  IP)=MF*UTCXP/C  IP*P1/N2  1**4 

10  CO  NT  I  NUE 

5  CONTINUE 

CONST=CONST*2. 

DO  11  IP® 1 .NT 

SI  N2C  IPI  sCSINC  IP*PI/N2  I 1  **2 

11  CONTINUE 

M=  NU*  C  NU ♦  1  )/2 
K=  1 

DO  15  I® 1 »NU 
IMN=M*CI— II* NU 
DO  15  J®  l  .  I 
VS11=0. 

VS  12=  0 . 

1FCID.NE.1I  60  TO  17 
DO  16  IP®  1  .NT 

CS=CCS(IP*PI *C I-.5)/N|*C0SC  I P*P 1*  C  J— .51/N) 
YS 1 1  =  YS1  1 *ST 1C  IP  l*CS*SIN2C IPI 
YS 12  =  YSl 2*ST2C IP  I  *CS*SIN2C IP  I 

16  CONTINUE 

VCK)  =  YB1  1  *YS  1 1*CCNST 
YC  IMN+KI  =YB1 2*YS12*C0NST 
K=K+  1 
GO  TO  18 

17  DO  19  IP  ®  1  .NT 

SN=S I NC  I  *  IP* P I /N )*S INC J*1P*PI/N) 

YS 1 1 = YSl  1 +ST 1 C IP }*SN*C  SIN2CI P>>  **2 
VS  12= YSl  2*ST  2 C IP )*SN*C SI N2 C I P  )  1 **2 
19  CONTINUE 

YC  K)  =  YSl  1*C0NST 
VC  IMN+KI  ®YS1 2VC0NST 
K=  Kf  1 

18  CONTINUE 

15  CONTINUE 

Ml  ®M 

N1*NU-1 

K=2 
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DO  21  1=1.  N1 
M2=M 1 ♦  NU ♦  I 
DO  20  U=K,NU 
V(Ml  +  J)=YO»2  +  I> 
H2=M2*NU ♦ J 

20  CONTINUE 
K=K+1 

N1=M1  *NU*I 

21  CONTINUE 
K=  1 

DO  22  1=1. NU 
IMN=M4I*  NU 
DO  22  J=1.I 
Y <  IMN  +K)  =  V  ( K  ) 

K=  K+  1 

22  CONTINUE 
RETURN 
END 


4.3  Subroutine  CSUM 

This  subroutine  computes  the  slit  impedance,  defined  by  Eq.  (5-28) 
for  the  TE  case,  given  by  variable  ZT.  A  slit  polarizability,  defined 
by  Eq.  (5-34),  is  computed  for  the  TM  case  and  represented  by  ZT.  Another 
quantity,  which  is  obtained  by  replacing  M^y’)  in  Eqs.  (5-28)  and  (5-34)  by 
M^(y'),  is  computed  and  represented  by  the  variable  ZS.  This  is  also  an 
impedance  for  the  TE  case  and  a  polarizability  for  the  TM  case.  These 
quantities  are  printed  out  at  execution.  The  argument  parameters  are 
defined  by 

Input:  ID  =  integer  option  variable.  ID  =  1 

for  TE  case  and  ID  =  2  for  the  TM  case. 

XI  =  array  containing  solution  vectors 
to  Eq.  (7-1)  for  each  excitation. 

NU  =  number  of  elements  in  vectors  V 
and  V2  of  Eq.  (7-1). 
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4. 


NEX  =  number  of  excitations. 

N  =  number  of  subsections  into  which 
each  aperture  face  is  divided. 

W  =  k  w. 
o 


SUBROUTINE  CSUMI  IO.X  I  .  NU  . NEX  •  N.  tf) 
COMPLEX  XI(IOOO) .ZS.ZT.U.C1 
DATA  U/I0..1.)/ 

C1  =  I  . 

IFII0.EQ.2I  0=1  ./CU*«) 

MRITEI3* 100) 

K=  1 

00  1  11=1. NEX 

zs=o . 

00  2  1=1  .NU 
ZS=ZS*XI IK) 

K-KF  1 

2  CONTINUE 
ZS=ZS*C1 /I24N) 

ZT =0  • 

OO  3  1=1  .  NU 
ZT =ZT *XI  (K) 

K=KF  1 

3  CONTINUE 
ZT=ZT/<2*N) 

HRITEI3. 101)  ZS.ZT 

1  CONTINUE 

100  FORM  ATI •  —  *»15X»*ZS*«  25X . • Z  T*  ) 

101  FORMAT I •  ••4E13.4) 

RETURN 

V  ENO 
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4.4  Subroutine  PWB 

This  subroutine  forms  the  system  of  Eqs.  (7-1)  when  the  plane  wave 
approximation  to  the  fields  in  the  slit  cross  section  is  used.  Equations 
(7-9)  and  (7-10)  are  used  to  compute  [Y^]  for  the  TE  case  and  Eqs.  (7-15) 
and  (7-16)  are  used  to  compute  [Y^]  for  the  TM  case.  The  argument  parameters 
are  defined  by: 

Input:  YHSA  =  first  column  of  [Ya] . 

YHSC  =  first  column  of  [YC]. 

XI  =  array  containing  right  hand  side 
vectors  of  Eq.  (7-1). 

N  =  number  of  subsections  into  which 
each  aperture  face  is  divided. 

NEX  =  number  of  excitations  or  sources 
in  region  a  to  be  considered. 

ID  =  integer  option  variable,'  ID  =  1 
for  TE  case  and  ID  =  2  for  TM  case. 

DK  =  k^d 

DY  =  k  w/N 
o 

etb  =  n. /n 

b  o 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

XIPW  =  array  containing  solution  vectors 
of  Eq.  (7-1). 

JWR  =  integer  option  variable,  if  JWR  =  1 
magnetic  currents  are  printed  out  and  if 
JWR  ^  1,  they  are  not  printed  out. 

The  magnetic  currents  are  computed  and  returned  in  array  XIPW  for  use  by 
subroutines  TRANS2  or  GAIN  2. 
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SUBROUTI NE  P *8 ( YHSA. YHSC • X  I • N .NEX • ID . OK . DY . E T8 .PHI .X  I Ptf • JW R ) 
COMPLEX  YHSA ( 40 ) » YHSCI40 I • XI ( 1000  ).XIP«( 1000) 

COMPLEX  Y(4000).VDA(40).YDC(40) .C1.C2 
COMPLEX  DK.ETB.CS1N.CC0S.U 
01  MENS  ION  PH  1(10  0) 

OATA  U/I0..1.)/ 

NU=N-ID4 1 
M=  NU4  (NU  >  1  >/ 2 

IF  (  A  I  MAG  (  OK)  .GE.  SO  •  )  GO  TO  1 
C2=U40V/ (  C S I  N( OK ) 4ETB ) 

Ci=-C24CCOS(  OK) 

GO  TO  2 

1  MF=- 1 

IF(AIMAG(QK) .GT.O.I  MF=1 

C1=MF4DY/ETB 

C2— 0  . 

2  CO  NT  1 NUE 

VDA(  1  )=VHSA(  1 1+014(4-101/3. 

VO  A(  2  )=Y  HSA  (  2 )*C14( ID-1  1/6. 

VDC(  1 )=Y  HSC <  1  1+C 14(4-10 1/3. 

YOC ( 2I=YHSC( 21*014(10-11/6. 

00  3  1=3.  NU 
VO A(  I  )=Y  HSA(  I) 

YOC(  1  )=Y  HSC (  1  ) 

3  CONTINUE 
K=  1 

00  4  J=1 .NU 

KM  =  M* J4NU 
DO  4  1=1  ,  J 

Yl Kl=YDA ( J-l 41 > 

Y( KM  *K )=  YOC (  J— 14  1) 

K=K4  1 

4  CONTINUE 
K=M*  1 

DO  8  J=1  .NU 
DO  5  1  =  1  .NU 

IF( IA8S(  I- J)  .GT. 1  )  GO  TO  6 

IF  (  I  ABS(  I-JI.EO.ll  Y(K)  =  C24(  10-11/6. 

IF(I.EQ.J)  Y  (K)  =  C24(4- ID)/3. 

GO  TO  7 

6  V(K1  =  0. 

7  K=K*1 

5  CONTINUE 
K=  K  +  J 

8  CONTINUE 

NX  =  NU4NE  X42 
DO  10  1=1.  NX 
XIPW(  I1=XI(I  ) 

10  CONTINUE 

N2=2*NU 

M2  =  N2  4 (N2411/2 

CALL  GEL  SIXIPW.Y.  N2  •  NEX  •  M2  ) 

100  FORMAT! • l '. 1 SX. • MAGNET IC  CURRENT  USING  PLANE  WAVE  ASSUMPTION* 

1  .  2  X  •  •  PHI  =  *  .  2E  1 1  •  4  ) 
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101  FORMAT1I 5.3E17.7I 

102  FORMAT!  •  — • * 1 X*  *POS. • »6X  » *  REAL  * • 13  X»  •  (MAG* . 1 3X« • MAG* * //) 

103  FORMAT!* -*.l OX.* APERTURE  FAC  E  *.  15  .3X  .*...*  .✓✓) 
1F1JWR.NE.11  RETURN 

K*  1 

00  11  J=  1  •  NE  X 

WRITE!3. 100)  PHI !2*J-1) .PHI! 2* J 1 
WRITE13. 102) 

DO  11  1=  1  .2 
MRITE13. 103)  1 

OO  11  11  =  1  .NO 
VA=CA0S( XIPWiK)) 

MR  IT  E 1 3.  101)  1 1. XIPM1K) . VA 

K=K*  1 

11  CONTINUE 
RETURN 
ENO 


4.5  Subroutine  S0LN3 


This  subroutine  forms  and  solves  the  system  of  equations  (7-1) 
when  the  various  approximate  solutions  are  used.  First  the  zero 
thickness  (d  =  0)  slit  is  solved  for  comparison  purposes.  Next  the 
slit  impedance,  ZQS,  using  Eq.  (8-7),  is  computed  for  the  TE  case  and 
also  a  slit  polarizability  SP  is  computed  for  the  TM  case  based  on  a 
similar  quasi-static  formula.  A  modal  solution,  using  NT  terms  in  the 
infinite  summations,  is  always  computed  for  comparison  purposes  for  all 
values  of  conducting  plane  thickness  d.  CSUM  is  used  to  compute  the 
impedance  and  polarizabilities  from  the  modal  results.  PWB  is  used  to 
obtain  a  solution  using  the  plane  wave  approximation  which  is  usually 
compared  directly  to  the  modal  solution.  The  integer  array  IJOB  is 
used  to  avoid  computations  and  printout  which  are  not  desired.  The 
argument  parameters  are  defined  by: 
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Input:  ID  =  Integer  variable,  ID  ■  1  for 
TE  case  and  ID  =  2  for  TM  case. 

IJOB  =>  integer  option  array  defined  by 
comment  cards  in  the  main  program. 

PHI  =  excitation  array  defined  in 
Section  2.1.1. 

NEX  =  number  of  excitations  or  sources 
in  region  a. 

NI  =  pumber  of  points  in  region  c  at 
which  far  field  is  computed  to  obtain 
field  patterns. 

DPHI  =  increment  in  degrees  at  which 
field  patterns  are  computed. 

DC  =  k  w/N 
o 

D  =  array  containing  thicknesses  kQd 
of  conducting  plane. 

W  =  aperture  width  kQW 

NT  =  number  at  which  infinite  summations 
are  truncated. 

N  =  number  of  subsections  into  which  each 
aperture  face  is  divided. 

ND  =  number  of  thicknesses  d  to  be 
considered. 


SUBS  OUT [ NE  SCLN3  <  ID. I JOS. PHI .  NEX.  NI  , OPHI .DC .D.tt.NT.N. ND ) 
COMPLEX  Y( 25001. XI (3000) • YHS A (4 0) .YHSCI 40) • YHSI 40) 
COMPLEX  XDI3000) *XZ<  40) .Cl  .K B  .E 78  »ZQ S »SP .OK 
COMPLEX  X  IPW(3000).YZ(40).U 

01  MENS  ION  PHM  10  0)  ,PT(  100)  .P  INI  10  0  )  •  0 1 30  )  .  I  J  OBI  8  ) 

REAL  KA.KC.K0 

COMMON  /B/KA.KB.KC.ETA .ETB.ETC.KO 

DATA  P  1/3. 14  1593/ .GAM/ I.  78  10  7/.  U/  I  0.  •!•)/ 
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NU  4  <0  N  r>  <7  yi 


NU=NA  1— I  0 
M=NU*CNU  ♦ll/Z 
N2=2*NU 

M2=N2*IN2+l)/2 
NX=N2*NE  X 

C - FORM  EXCITATION  ANO  HALF  SPACE  MATRICES 

1F(  (O.NE  .1)  GO  TO  1 

CALL  YHS TE< YHSA. NU.0C4KA ,K A. ETA  1 
CALL  YHSTECYHSC.NU.DC4KC.KC. ETC) 

CALL  EXTE2IXI.N.NEX.PH1.0C4KA.M4K A  »E  T A  *KA. N 2  .P I N  .KO) 
kRITEO.  105) 

GO  TO  2 

1  CALL  YHSTMIYMSA. NU.DCAKA.KA. ETA1 

CALL  YHS  TM  (  YHSC»  NU .DCAKC  .KC.ETCI 

CALL  EXT  M2(X I .N • NEX • PHI • DCAK A • 4 *K  A .E T A, KA. N2 .P IN, KOI 
kRITEO.  106) 

IF{ I JC0I 8I.NE.1I  GO  TO  20 

- SOLVE  ZERO  THICKNESS  CASE 

C1=YHSAC  1  )+YHSCC 1 ) 

OO  4  1=1  *  NU 

YHS(  I  )  =  (  VHSAC I ) ♦ YHSCC I ) ) /C 1 
CONTINUE 
Kl  =  l 
K2=NU41 
OO  5  J=I  » NEX 
00  6  1=1 ,NU 
XZ(I ) =Xl (Kll/Cl 
K 1 =K 1 ♦ 1 
CO  NT  INUE 
K I =K I4NU ' 

CALL  CSMTZIYHS.YZ.XZ.NU) 
kRITEO,  100)  PHI C24J-1 ),PHIC 24J) 

ZQS=0. 

00  7  1  =  1  .NU 

CM  =  CABS(  YZ(  I  )  ) 

XO  (  K  2  )=—  V Z I  I  ) 

IFIIJCBI  4  )  ,EC,1  )  kRITEO. 101)  I.YZIIl.CM 
K2  =K  2  +  1 
ZQS=ZCS- YZI  I  I 
CO NT INUE 
K2=K  2-fNU 

IF  I  I O.EQ .1)  GO  TO  3 
SP=Z0S/<  N*2*U*k) 
kR  ITEI3.  102)  SP 
GO  TO  9 
ZQS=ZGS/  f  2 *N  ) 
kRITEO.  103)  ZQS 
CONT  INUE 
CONT INUE 

IF<  I  O.NE  .  1  )  GO  TO  8 

ZOS=-PI/  (  k*I  P  I  —  2  •  *U A ALOG  ( CJ  AM  4  k  /  6  .  ))  ) 
kRITEO.  108)  ZQS 
GO  TO  10 

8  SP=P I/< 1 0.*(  1 .♦(  I k/4.) 44  2) 4<  2 . * AL  CGI GAMAk/8. )—  1  •  4U 4^  I  )  )  ) 

kRITEO,  1  09)  SP 

10  continue 


119 


r>  rv> 


IFCI  JOB<  5).EQ.l)  CALL  TR ANS2  !  YHSC  .PI  N  .PH I  .NE  X .  XD .  ID,  PT  .  NU) 

IFf I JOSI  6).EC.l)  CALL  GA IN2(  XO . FH I .DPMI • NI  • PT . ID .NEX • NU * W. DC  I 
0  CONTINUE 

- COMP.  MODAL  SCLN.  FOR  EACH  THICKNESS 

CO  II  11  =  1  *NC 
DO  12  1=1  .NX 
XD ( I >  =  XI  (  I) 

12  CONTINUE 
DK=KO*KB *Dt I  I  1 

CALL  YB!  Y.N.0C4K8.M4KB.DK. ETB.KB.  NT.  ID) 

K=  1 

DO  13  J=  1  .  NU 

MJ=M  + J*NU 

DO  13  1=1.  J 

Y( K) =  V<K ) ♦YHSAIJ— 1*1 ) 

VI  MJ«-X)  =  Y!MJ4K)*YHSC!  J-IM  ) 

K=K+1 

13  CONTINUE 

CALL  GELS(XD,Y*N2*  NE  X.  M2  ) 

IF  <  I JOB(  41.NE.1)  GO  TO  17 
K=  1 

DO  14  J=  1  »NE  X 

MRITE13.  104)  PHI (2AJ-1 ). PH  II 2* J  ) 

MR ITEC3, 107)  Dill) 

DO  14  1=1.  N2 
CM=CAeS( XO( K ) ) 

MRITEI3. 101 )  I .XD(K) .CM 
K=K4  1 

14  CONTINUE 

17  MR  l  T  E  <  3 .  107)  O(II) 

CALL  CSU  M( ID.XD.NU. NEX , N,  W  ) 

1F(IJCH( 5I.EC.1)  CALL  TR AN S2 I YH SC .PI N .PHI . NE X , XD • I D.  P T . NU) 

IF( I JCB(  6 ) .EG. 1)  CALL  GA I N 2!  XO , PH  I . DPHI • NI • PT • I D .NEX , NU , W. DC ) 
IF  (  I  JCB!  71.NE.1)  GO  TO  15 

CALL  PWE3  (  YHSA.YHSC.XI.N.NEX,  10,  CK  .DC.ETB.PHI  .XIPW.  I J  OBI  4)) 

IF( I JCBI  5>.E0.1)  CALL  TR ANS2 I YHSC .PIN .PHI .NE  X. X  I PM, I D ,PT  »N  U) 

15  CO  NT  I  NUE 

11  CONTINUE 

100  FORMAT!*  —  ZERO  THICKNESS  CASE  FOR  INCIDENCE— ••2E11.4) 

101  FORMAT!*  *.I 10.3E11.4) 

102  FORMAT!*  —  •••SLIT  POLARIZABILITY  =*.2E11.4) 

103  FORMAT! •-*,* SLIT  IMPEDANCE  =*.2E11*4) 

104  FORMAT!  •-*.*  MCiOAL  MAGNETIC  C  URR  ENTS.  .  .  *  .  2E  1  1  .4  ) 

105  FORMAT!*  1  •  ,20X.  •  ...TE  CASE...*) 

106  FORMAT!* 1 • .20X,* ...TM  CASE...*) 

107  FORMAT!* -*,5X.  •  0  =*.E11.4) 

108  FORMAT!*  *  .  •  QUAS  I-ST  AT  IC  IMPEOANCE  =*.2E17.7) 

109  FORMAT!*  * . • CUAS I-STAT IC  POL AR I ZA eiL I TY  =*,2E17.7) 

RETURN 

END 
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4 . 6  Subroutines  TRANS2  and  GAIN2 


These  subroutines  are  essentially  the  same  as  those  described  in 
Section  3.9  except  that  several  arrays  used  in  Section  3.9  are  eliminated 
for  their  use  in  Program  III.  They  are  simply  listed  here  to  avoid  con¬ 
fusion. 


SUBROUT  I NE  Tfi ANS 2! YHS . PI N, PH ( .NEX .VM •  ID.PT.NU) 
COMPLEX  YHS! 40). YAUX! 40) • VCI  401 .VM! ! 000) 

COMPLEX  CGNJG.SUM.S 

Cl  MENS ION  PH  II 100) .PIN! I  00 )• PT! 10  0) 

DATA  PI/3.141593/ 

100  FORMAT EXC I TAT  I CNS  AND  TRANSMISSION  COEFFS.') 

101  FORMAT!'  '.3E1I.4) 

NC  =  NU 

NR=2*NU 

DO  1  1  =  1  .NC 

YAUX! I)=CONJG!YHS! I) ) 

1  CONTINUE 

MRITE 13,  100) 

K=  NU 

DO  10  J=  1  »NE  X 

DO  3  1  =  1  .NC 

VC! I  ) =CO  N  JG! VM(K*I) ) 

3  CONTINUE 

S=0. 

CO  4  1  =  1  .NC 

S=S*VM!K  ♦  I  )*  VC!  I  ) 

4  CONTINUE 
SUM=YAUX  1  1  )*S 
DO  5  L=2  •  NC 
S=0. 

NL  I  =  N  C— L  ♦  1 
DO  6  1=1  .  NL  I 

S=  S*VM!K ♦ I )*VC!L*I— 1 ) ♦VM! K  FL ♦ I- 1 ) *VC ! I ) 

6  CONTINUE 

SUM=  SUMF  YAUX !L)*S 

5  CONTINUE 

PT  <J)=REAL(  SUM  ) 

T=  PT  !  J)/  P  IN!  J) 

•RITE! 3.  101)  PHI ! 2* J— 1 ) »  PH  I! 2* J ) • T 
K=  K*  NR 

10  CONTINUE 

RETURN 
END 


>0  4 


SUBROUT l NE  G A  I N2 ( X I • PH 1 . DPMI  .NI .P T. I  0 . NEX. NU • « . DC> 
COMMON  /  B.'WA  VNA.  MA VNB.  WA VNC.  ETANA  «ET  ANB.  ET  ANC.  MAVNO 
COMPLEX  XU  I  000) .U.CEXP, S.  VM  .ETAN6.WAVNB 
01  MENS  10  N  PHM  10  0).FPC  100)  .FTtlOO  ).G A! 100) . PTC  100) 
DATA  PH0/-1.570796/.U/C0.. I. )/• ET AO/377./ 

100  FORMATC*  l  •  •*  TE  GAIN  AND  FIELD  PATTERNS*) 

101  FORMAT  C  •  1  *  .  *  TM  GAIN  AND  FIELD  PATTERNS*) 

102  FORMAT!*  •  .3E  1 5.  4  ) 

NR  =2  *  NU 
WK2=W*WA  VNC/2. 

D2-DC4WA VNC/2. 

DPH=-CPH I 4PH0/90 • 

PH—PHO 
CP  H=—  1  . 

DO  2  1=1 .NI 
SN  =  S  IN(PH) 

IF  CIO.  EQ. 2)  CPH=— COS !  PH) 

IFISN.EO.O)  GO  TO  3 
FT ( I )=— S INC02*SN )/!D2*SN) 

1FCID.EQ.2)  FTC  I )=CPH*FTC I )**2 
GO  TO  4 
FT!  I  >=CPH 
CONTINUE 
PH=PH4DPH 
2  CONTINUE 

K=NU 

DO  10  J=  1  «NE  X 
P H-PHO 
DO  6  1=1  .  NI 
SN=SIN(PH> 

S=0. 

DO  7  L=1  .NU 

VM=C  C  2*L  *  10-2 )*D2-MK2) *SN*U 
S=S+XICK+L)*CEXPCYM)*FTC  I) 

7  CONTINUE 

F=2.  *  C2*  CABS  C  S  ) 

FPCI >=F 

GACI )=F*F/C2 .*MAVNC*ETANC*PT C J) ) 

PH=PH  +DP  H 
6  CONTINUE 

FM=F  PCI) 

00  8  1=2  •  N  ( 

IFCFM.LT  .FPC  I  )  )  FM=FPCI) 

8  CONTINUE 

00  9  1=  1  .NI 
FPCI  )=FP  C  D/FM 

9  CONTINUE 
PH  =—  9  0. 

IFCIO.EQ.l)  Wfi ITEC3. 100) 

IFCID.E0.2)  WRITEC3.101) 

DO  5  1=1  ,NI 

MR  ITEC3.  102)  PH.GAC I ).FP! I  ) 

PH=PH*OP  H I 
5  CONTINUE 

K=K*NR 

10  CONTINUE 
RETURN 
ENO 
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4 . 7  Subroutine  CSMTZ 


This  subroutine  solves  the  set  of  equations 
Hi  =  dN 

where  is  an  N  *  N  symmetric  Toeplitz  matrix.  The  argument  parameters 
are  defined  by 

Input:  C  =  array  whose  elements  are  the 

first  row  of  L„. 

N 

D  =  array  whose  elements  are  those 

of  V 

N  =  number  of  unknowns. 

Output:  S  =  array  containing  the  solution 
vector  s^. 

It  is  assumed  that  the  above  matrix  equation  is  normalized  so  that  the 
first  element  of  the  first  row  of  is  equal  to  unity.  The  algorithm 
used  is  explained  in  great  detail  in  [6]  and  [7]  and  a  derivation  will 
not  be  repeated  here.  An  explanation  of  the  subroutine  logic,  however, 
will  be  reviewed  using  the  notation  developed  in  [6]  and  [7]. 

Notation: 

Capital  letter  B_.  indicates  a  jxj  matrix. 

Lower  case  letter  b^  indicates  a  j*l  matrix. 

~  denotes  transpose 

a^  is  a  column  vector  made  up  of  the  first  i  components  in 
reversed  order. 

Greek  letters  indicate  scalars. 

Capital  letter  C(j)  indicates  the  jth  component  of  array  C. 

The  matrix  L„  is  bordered  as  follows: 

N 
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The  last  computed  values  are  0N  riN  SN*  eN-i*  an<*  ^N-l*  Note  that 
a^,  g^,  and  y  appearing  in  [6]  are  not  needed  here  because  of  symmetry. 
The  subroutine  computations  are  then  carried  out  as  follows: 

Compute  initial  values  s^,  e^, 

DO  1  i  =  1 ,N-2 
DO  2  j  =  l,i 
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Compute  SI  =  and  El  = 

2  Continue 
Compute 

DO  3  k  =  1,  1 
Compute 

Store  e^  in  dummy  array  ES  because  e^  is  needed 
in  DO  loop  6  to  recompute  itself. 

3  Continue 

DO  6  k  -  1,  i 
Compute  e^ 

6  Continue 

Compute  X  ^ 

1  Continue 

Compute 
Return 
End 


subroutine  csmtzic.s.d.ni 

COMPLEX  CIN) .SIN). DIN) 

COMPLEX  E< 100). ES( 100) 

COMPLEX  LA«E1«S1 •  ET  •  ET1 • TH  «TH1 
SI  1)  =  Dill 
E<  U  =  -C<2> 

LA*1 .-C( 2)*C<2> 

Nl«N-2 
N2=N- 1 
DO  1  1=1  •  N1 

E1=I 0..0 .  ) 

S1=(0.,0.) 
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■Ha 


DO  2  J=1  .  * 

SI=S14SI  J  )*CI  I— J42I 

E1=E1*EI  I-J*1)*CI  J*1  > 

CONTINUE 

ET=— C I !♦ 2  >— E 1 

TN»OI I+l )— SI 

TH1=  TH/LA 

ETi=ET/L A 

00  3  K=l  .  J 

SIK>  =  StK  )«TH1*EI  I-K*U 
ES  (  K  I  =E(  K  ) 

CONT  INUE 
00  6  K=1  .  I 

E(K»  =  ES(  K  )  *ET  1  *E  St  I— K+1  ) 

CONTINUE 

SI 1*1 )=T  H/LA 

El  1+ 1  )=E  T 1 

LA=1_A-ET  *ET  1 

CONTINUE 

S1=I0.*0.) 

00  4  J=I  •  N2 

Sl=Sl*SI  J  )  4C  I N— J  ♦  I  1 

CONT  INUE 

TM=DINI-S1 

TH1= TH/LA 

00  5  K=l ,N2 

SI K)=S(K )*TH1*EI  N-K) 

CONT INUE 
SI  N241)=THI 
RETURN 
END 
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Appendix  A 

INTERPRETATION  AND  COMPARISON  OF  MODAL  AND 
NON-MODAL  RESULTS 

The  unknowns  in  the  non-modal  solution  consist  of  magnetic  currents 
on  the  slit  faces  adjacent  to  the  half  space  regions  and  electric  currents 
which  exist  on  the  entire  contour  which  defines  the  slit  cross  section. 

These  quantities  are  represented  by  sets  of  expansion  functions,  the  coef¬ 
ficients  of  which  are  obtained  by  solving  a  set  of  simultaneous  linear 
equations  (2-17)  for  the  vectors  v\  V^,  and  r|  I.  The  expansion  functions 
used  are  different  in  the  two  polarizations  and  their  placement  on  the 
slit  cross  section  is  shown  in  Figs.  6  and  7.  Thus,  the  tangential  elec¬ 
tric  and  magnetic  fields  at  the  two  slit  faces  comes  out  directly  in  this 
method  of  solution. 

The  unknowns  in. the  modal  solution  consist  of  magnetic  currents  on 
the  two  slit  faces  adjacent  to  the  half  space  regions  as  well  as  each  aper¬ 
ture  coupling  two  rectangular  sub-regions.  These  quantities  are  represented 
by  sets  of  expansion  functions,  the  coefficients  of  which  are  determined  by 
solving  a  set  of  simultaneous  linear  equations  (6-8)  for  vectors  V^, 

^NB+l'  The  exPansion  functions  used  are  again  different  in  the  two  polari¬ 
zations  and  their  placement  on  a  typical  slit  cross  section  is  shown  in 
Figs.  8  and  9.  An  extra  computational  effort  is  required  here  in  order 
to  obtain  the  tangential  magnetic  field  at  points  on  the  contour  defining 
the  slit  cross  section.  This  is  outlined  in  Appendix  C. 

The  quantities  which  may  be  directly  compared,  then,  are  the 
magnetic  currents  on  the  aperture  faces  adjacent  to  the  half  space  regions. 
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Fig.  6.  Placement  of  some  typical  elements  of  TE  solution  vector  on 

contour  C  for  Program  I.  Dashed  lines  represent  2  directed 

-+1  ->3 

expansion  functions  for  V  and  V  and  solid  lines  represent 
i  directed  expansion  functions  for  ND  “  1,6,11,16,22. 

The  nodes  are  numbered  clockwise  from  the  origin. 


Fig.  7.  Placement  of  some  typical  elements  of  TM  solution  vector  on 
contour  C  for  Program  I.  Dashed  lines  represent  z  directed 
expansion  functions  for  nQ?  and  solid  lines  represent  6  directed 

-vl  ->3 

expansion  functions  for  V  and  V  ,  ND  =  1,6,11,16,22.  The  nodes 
are  numbered  clockwise  from  the  origin. 


Fig.  8.  Placement  of  some  typical  elements  of  TE  solution  vector  on 
slits  T  for  Program  II.  Dashed  lines  represent  z  directed 

q  — 

expansion  functions  for  . V^.  Numbering  is  from  the 

bottom  to  the  top  of  each  T  . 


These  are  lines  in  programs  I  and  II  and  lines  in  Program  I  and 
^NB+1  Pro8ram  11  where  the  slit  cross  section  has  been  represented 
by  NB  rectangular^  sub-regions.  As  a  result  of  the  different  numbering 
schemes  used  for  the  vectors  containing  the  magnetic  current  expansion 
coefficients  in  Programs  I  and  II,  the  comparison  between  the  two  solu¬ 
tions  is  made  according  to  Table  8.  This  may  be  seen  from  the  sample 
output  in  Sections  2.1.2  and  3.1.2.  The  superscript  hat  (~)  over  a 
vector  means  that  the  elements  in  that  vector  are  reversed. 


Table  8.  Quantities  to.be  compared  in  Programs  I  and  II. 


Program  I 

Program  II 

+1 

•f 

V 

V1 

+3 

4 

V 

-V 

NB+1 

->1 

-f 

V 

V1 

23 

4 

V 

V 

NB+1 

Appendix  B 


LIST  OF  VARIABLES  USED  IN  PROGRAM  I 


The  non-modal  formulation  comprises  the  bulk  of  the  detail 
in  [1]  and  hence  a  list  of  consistently  used  Fortran  variables,  which 
appear  in  Program  I,  is  listed  here  with  their  counterparts  in  [1]. 


Program  I  variable 


Counterpart  in 


ETA 

Vi 

ETB 

O 

> 

ETC 

n/n 

C  O 

KA 

k  /k 
a  o 

KB 

o 

* 

> 

KC 

k  /k 
c  o 

WAVNO 

k 

o 

EPSA 

e  /e 
a  o 

EPSB 

e./e„ 

b  o 

EPSC 

e  /e< 
c  O 

MUA 

VJV o 

MUB 

'V'i 

MUC 

c  o 

ULX(m) 

i  •  x 
— m  — 

ULY(m) 

£  •  y 

—m  ^ 

ND(i) 

RCX(m) 

Ni 

AC 

x  +  £ 

m  2  -m 

RCY(m) 

AC 

,  m  a 

ym  +  —  ^ 
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DC  (m) 

AC 

m 

NGQ 

Q  of  Eq.  (A-3) 

a«> 

A(j) 

-5 —  Of  Eq.  (A-3) 

««> 

T(j) 

— 2 of  Eq-  (A-3) 

NU  ( 1 ) 

dimension  of 

NU  (  2  ) 

-+3 

dimension  of  V 

NU  (  3  ) 

dimension  of  U  I 

0 

RXK(m) 

kq  RCX(m)  for  q  =  a,b,  or  c 

RYK(m) 

kq  RCY(m)  for  q  =  a,b,  or  c 

DCK(m) 

k^  DC(m)  for  q  =  a,b,  or  c 

U 

complex  number  j 

PI 

IT 

PIN(j) 

UokoPiN  of  jth  excitation 

PT(j) 

nok0pt3  of  Jth  excitation 
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Appendix  C 

MODAL  COMPUTATION  OF  TANGENTIAL  MAGNETIC  FIELDS 

A  comparison  is  made  in  Figs.  17-37  of  [1]  between  the  tangential 
magnetic  field  on  the  slit  cross  section  from  Program  I  and  the  tan¬ 
gential  magnetic  field  on  the  slit  cross  section  computed  from  the  results 
of  Program  II.  The  latter  results  are  obtained  from  an  extra  computational 
effort  which  is  described  here.  What  is  needed  is  the  magnetic  field  inside 
a  closed,  perfectly  conducting,  two-dimensional  box  due  to  sheets  of  mag¬ 
netic  currents.  This  problem  is  shown  in  Fig.  10  where  the  dimensions  of 
the  box  are  also  labelled.  The  coefficients  of  the  expansion  functions  for 
the  magnetic  currents  M^  and  ,  which  are  different  in  the  two  polarizations, 

-V  ->■ 

are  the  elements  of  the  vectors  and  V^.  Each  aperture  of  length  and 
is  broken  up  into  N^  and  ^  segments,  respectively.  The  length  of  these  seg¬ 
ments  are  A^  =  W^/N^  and  ^  =  W^/N^. 

For  the  TE  case,  a  specialization  of  Eqs.  (6-21)  and  (6-22)  to 
Fig.  10  yields 


cos 


0  H 
o  z 


k^  (x-d) 


cos 


o  sin  k,  d 

D 


4*  B 


V 


o  sin 


V 


cos  apk^(x-d)  cos  aj^x 

P 


+  I  tA  — - ?  - - +  B_  - o  b"  ]  cos 


where 


“  L  n  ! 

p=l  p  sin  ot^k^d 
A,  Ni 

2.  Jl  t  f  v 

h  l,i 

3  i=l 


sin 


jn„  A 
A  =  — 

°  nb 


jno  A2 


B  = 

°  nb  h 


<  l  v2il 

i=i  /’1 
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Fig.  10.  Magnetic  current  sheets  radiating  inside  a  perfectly  conducting 
two-dimensional  box. 
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2jn  Sin  2N.  A,  Ni 

=  _L^°  ( - I)  J.  fv 

n.  v  ptt  '  ah  l,i 

D  0.T  p  Is  1 


cos  ^  (y^  +  (i  - 


•5)A1) 


2jno  ;ln  2h  i2  ». 


IT  (T>  Si:  X  V  ~  f  <*2  +  »  - 

b  M7  p  1=1 


•5)A2) 


a1  =  /  1-  (t^)2 
p  J  kbw1 


a2  =  jl  -  (r21-)2 
P  v  v2 


This  allows  the  2  directed  magnetic  field  to  be  computed  at  any 
point  inside  the  box  of  Fig.  10  and  when  the  above  is  specialized  to  the 
walls  of  the  box  one  may  obtain  the  points  labeled  "modal  J"  in  Figs.  17-37 
of  [1].  The  computation  is  rather  straightforward  and  a  computer  program  is 
not  described  here  for  accomplishing  this  task. 

For  the  TM  case,  a  specialization  of  Eq.  (6-33)  to  Fig.  10  yields 


n  H  =  l  [A 

O  V  Lj 


1  2 
cos  a  k^(x-d)  cos  a  k^x 


ii  £  in  1  i  u 

°  ^  p=l  p  sin  a  k.  d  p  sin  a  k.d 


]  sin 


for  the  y  component  of  magnetic  field  where 
2in  ,  A,  [sin  (mT)l  V1 


2jn  A  sin  (2N  >  Nl-1 

A  =  0  a  —  - - -  £  V  sin  2—  (y  +  iA  ) 

p  n,  p  h  pTT  L  l,i  h  1  1 

L  2N,  1 


fsin  S—  _i 
2jn  ,  A,  sln  2N,  ^2  1 
d  =  _ 2.  a2  _1  _ 2  y  v 

Bp  nb  p  h  -E2L.  i=i  2>i 

L  2N2  J 


sin  (y2  +  iA2) 
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